' +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*`$"Y"FLAGTRUE:`CN0:5400:FLAGWANTĢ22:"NO CLASSES HAVE BEEN DEFINED.":30000:FLFA:uFLAGF1FLFA:FI$FD$:3:CLINE:"WHAT IS THE NAME OF THE CLASS?":CLINE::DN$IN$"":ZL(DN$):ZLFLFA:ZY1NC:(CL$(ZY),ZL)DN$5360 9600:3:CPAGE:12:"NOW COMPUTING FINAL GRADES. PLEASE WAIT."9900:10:CPAGE:"FINAL GRADE CALCULATIONS COMPLETE.":30000:FLAGFALSE: *OPEN CLASS3:CPAGE:CN0WANTĺ"IS "CL$(CN)" THE NAME":PR$"OF THE CLASS YOU WANT TO USE? ":9150:INAGFALSEı&CA19:Z$"FINAL":IT%59z:Z$O$(0,5):S(20))Z$:E$"FINAL":Z4:Y2:8900:OP3600,3700,3800:OP44520FLAGFALSE:COMPUTE FIN GRADEWANTTRUE:5300:FLAGFALSEı8700CT20:IT%60:A60:B17:E19:X156:X258>8S3:EB2:X149S2:X2X11:IT%562(S2):94008700:9500:3:CPAGE:12:"NOW COMPUTING SEMESTER GRADES.":"PLEASE WAIT."9900:10:CPAGE:"SEMESTER #"S" CALCULATIONS COMPLETE.":30000:FLAGFALSE:ENTER FIN EXAM WANTTRUE:5300:FLDO YOU WANT A FREQUENCY":PR$"DISTRIBUTION OF THE SCORES? ":9150:FD(IN$"Y"):6500:FDİ7000lPRįPOFFwFL0:COMPUTE SEM GRADEWANTTRUE:5300:FLAGFALSEı2:CPAGE::"CLASS NAME: "CL$(CN)39300:Q1(S2)2:CT16S:A542S:B255eL1(SC%0SC%SZ%(IT%)(SC%255)):L1:ASIT%,SC%:ASIT%10,(SC%255):DN%Z:M:E:30000:PRINT DATA ABOUT GIVEN SEMESTER EXAMSZ%(IT%)255Ģ2:CPAGE:12:"NO "Z$" EXAM SCORES HAVE":"BEEN ENTERED.":30000:^9250:2:CPAGE:12:"VySZ%(IT%)255Ģ2:CPAGE:12:"NO "Z$" EXAM SCORES HAVE":"BEEN ENTERED.":30000:~FI$FH$:2:CPAGE:8:"STUDENT: ";::DN$IN$"":Y$"EDIT GRADES":6400FLı3500:DN%Z:X:FI$FJ$:L101:10:CLINE:DN$;:30::SC%(IN$):(IN$)0SC%RES.",""uà PRINT GRADES,PRINT,"PRINTS GRADES FOR THE QUARTER,","SEMESTER OR FINAL. PRINTS PROGRESS","REPORTS.",""Ã"PROGRAM 6","PROGRAM 6","",""Ã"PROGRAM 7","PROGRAM 7","",""Ã"PROGRAM 8","PROGRAM 8","",""",""{xà SCORES,SCORES,"ENTERS AND EDITS UP TO 50 SCORES PER","STUDENT. PRINTS SCORE REPORTS AND","STATISTICAL DATA.",""à COMPUTE GRADES,COMPUTE,"COMPUTES QUARTER, SEMESTER, AND FINAL","GRADES. RECORDS AND PRINTS SEMESTER","EXAM AND FINAL EXAM SCOLISTS OF UP TO 255","STUDENTS EACH. ENTERS, MODIFIES, OR","DELETES STUDENT NAMES AND NUMBERS.","PRINTS LISTS AND SCORE SHEETS."nà GRADING METHOD,METHOD,"CREATES SCORE CATEGORIES, SELECTS","PERCENTAGE OR CURVE GRADING, RECORDS","LETTER GRADE INTERVALS.XCRUDE ERROR PROCESSINGZb::10:"ERROR #"(222)" IN LINE "(218)(219)256".":l(222)4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER."vPòUSER DATA AREAZÃ"GRADE MANAGER","","VERSION 1.1",5dà CLASSLIST,CLASS,"CREATES 1-15 CLASS INPUT16368,0.ZH(36)1:ZV(37)1>ZL((ZT))_SKI,ZL,Z$:ZC(Z$)037040(Z$)ZB(Z$)ZTĢ24:868:3:ZF1:"ENTER A NUMBER BETWEEN "(ZB)" AND "(ZT)".";:ZV:ZH:868:37030ZN(Z$):ZFĢ24:1:958:ZF0:ZV:ZH:5uZH(36)1:ZV(37)1:ZF0_:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000NuZP160ZP14130020Xu1:868:1::ZV:ZH:16368,0:STANDARD RANGED NUMERIC(20))DN$:Z$"PROGRAM DESCRIPTIONS":S(20))Z$:34,4:5a:CT0:I1N:CT16DLİ30000:::CT1y:MN$(I)" -":CTCT1:J1DL:DS$(I,J)""DS$(I,J)" "ĺ" "DS$(I,J):CTCT1:J::I:30000:::12000:0uSTANDARD SPACE BAR ROUTINEN142PD:F6N182PD:FULL SCREEN (LIMIT VARIES 16-20)J3N1SP$"S"P3`6END OPTION6:11:8:"INSERT ANOTHER DISKETTE."630000:CL$6CS(P(P(999))1)16:SLOT #6CS1CS7CS66CS::DESCRIPTIONS 7::Z$DN$:SRMAT92C2((N1)2):F2C2(N1)2:ODD # OF MENU ITEMSd2PD(PRDR)HO:F3N7PD: TWO COLUMNS2IL1:ELN2PD:EL9EL9:IL22LE$"-1"(EL):(CA)LE$LE$(1):HODRLE$LE$(4):DEFINE LEGAL INPUT CHARACTERS2HOPRLE$LE$(16)92F5DE NUMBER8-G57(TP1):ZZ1G:ZS%(ZZ)GZZ:ZZ13B-ZZ:Y-X *FREQ DIST(FRED)_-]-bC0:HS0:LS0:A0::8600:NP%ST%(0):8400:8200:TI$"ORDERED LIST OF SCORES":8500:8100:L1NP%01:SC%(L1)07065-fPR(37)3İ8500:8100b.gHSHKEY":8500::LILI1;,ZZ1X:C$G1$(ZZ):X5C$G2$(ZZ),1220PR);C$;4);S%(ZZ);" - ";S%(ZZ1)1(S%(ZZ1)0):LILI1:PRĺ:LILI1,ZZ:LILI1: I DONT KNOW WHY,PRİ30000:,PRİ5700,::POFF:FLAGFALSE: - DETERMINE GRA3)4(Z$))Z$" "S(4)5(O$))O$;:PRĺS(4)3)G$E+LILI1:PRĺe+PRLI62İ9100:8500:8100+PRĺ:LILI1:LI20İ30000:+L1(DN%0):L1+PRİ9100+PR(37)3İ30000:++ LETTER GRADE KEY+QP1,TI$"LETTER GRADE :X *vPR(37)3İ8500:81006*x(NA)ĺS(1))DN$;J*}NUĺS(2))DI$;*SC%(ASIT%):SC%255Z$"***":O$"***":G$"NA":6537*TP3OSI(T(Z(SC%))):6535*OSI(W(SC%))*Z$(SC%):O$(OS):ZOS:6600:G$G1$(G):TP1G$G2$(G)2+S(":30000:12:CLINE:FLAGFALSE$)22)d *?SCORE;)eQP0T)fX57(TP1):S%(X)0)gTP3Ģ2:CPAGE:12:"COMPUTING STANDARD DEVIATION...":8600:8400:)iPRİ38000*sTI$"LIST OF "E$" EXAM SCORES":DN%0:X:NP%(ASIT%):8500:8100:C2:L101NS%:DN%J:X:M((DI$,1,L)NA$)((DN$,1,L)NA$)(MĢ6:CPAGE:Z$DN$:5750:"IS "Z$" THE NAME OR":"NUMBER OF THE STUDENT WHOSE SCORE YOU":PR$"WANT TO EDIT? ":9150:IN$"Y"ZJ:JNS%:CHTRUE:FLAGTRUE)(J:CHĢ12:"THAT NAME IS NOT ON THIS LIST.'ZZ1X:55PR);8'C$G1$(ZZ):TP1C$G2$(ZZ)'Z$(S%(ZZ)):Y$(S%(ZZ1)1):J(Z$):K(Y$):C$;4);Z$;" - ";Y$;2010PR(JK));D%(ZZ):LILI1:PRĺ:LILI1'ZZ:'SEARCH NAME/NUMBER' NA$DN$:NU$DI$:CHECKFALSE1(L(NA$):J1ZZ:X(TP1)12(TP1)5:S%(0)101:S%(X)0:NP%ST%(0)V&L11NS%:ST%(L1)2556050z&TP3SC%T(Z(ST%(L1))):6040&SC%W(ST%(L1))&L2112:SC%S%(L2)D%(L2)D%(L2)1:L212&L2&L1:&*?TYPE1INTERVALS'X(TP1)12(TP1)5W2(Z)W2(IN)0ZINO%IT:LW2(Z):IT1B(CA):INA(CA):W2(IN)W2(IN)L:ITY%CA:j% WEIGHT ITEM%4FI$FC$:ZX1(C$(ZY)):I((C$(ZY),ZX,1)):Y:CLINE:"ITEM "CC$(ZY)" #";ZX;:25::W2(I)(IN$)%HZX:%p*COUNTFREQ6&zZZ012:D%(ZZ)0:ORRECT? ":2:CP:12:9150:IN$"N"5800^$W1(0)1000:W2(61)1000:Z0:CA18:B(CA)05871~$W1(CA)W1(Z)W1(CA)0ZCA$CA:LW1(Z):CA18:B(CA)05873$W1(CA)W1(CA)L$CA:CA18:B(CA)05880%Z61:IT1B(CA):INA(CA):W2(IN)CATEGORY";:25:"WEIGHT":5:"--------";:25:"------"Q#ZX050:W2(ZX)1:ZXv#ZY18:(C$(ZY))0YY2:5860#Y:1:CLINE:5:CC$(ZY);:25::L(IN$):Lİ5900:5840#W1(ZY)(IN$)#YY2:FI$FJ$:ZY#9700($PR$"ARE THE WEIGHTS C%IT%%"XZZ050:(ACZZ)2555740P"bIT%ZZ:8600:8400:SD(ZZ)SD:ME(ZZ)MEb"lZZ:IT%ZT%:p"vTRUNCATE"{ZL(Z$):ZLı"Z10:ZYZL11:(Z$,ZY,1)" "Z1ZY:ZY1"ZY:Z$(Z$,1,Z1):"WEIGHT CAT6#3:CPAGE:FI$FJ$:Y8:5:5:"KETTE IS WRITE PROTECTED."F!ER%6Z$"STUDENT OR CLASS NOT FOUND."|!ER%8Z$"DATA DISK BAD, DRIVE OR FORMAT ERROR."!ER%9Z$"THERE ARE ALREADY 15 CLASSES DEFINED."!ER%DEBUGĢ20:CPAGE:Z$:30000:20:CPAGE!!DBUILDSTD/ME"IZT5500:FLTR:F1TR:ZZ15:5430| ,Z$DN$"":5750:CL$(ZZ)Z$::NC0:ZZ115:(CL$(ZZ))0ĭ((CL$(ZZ),1))0ĺCL$(ZZ):NCZZ 6: | *GFMERRORS DEBUGĢ20:DN$:DI$:DC%,DN% ER%1Z$"THAT STUDENT ALREADY EXISTS."!ER%4Z$"THE DATA DISISTS. PLEASE CHOOSEANOTHER NAME.":30000:FLAGFALSE:WATHEREĢ20:CPAGE:"THAT CLASS DOES NOT EXIST.":30000:FLAGFALSE:FLTRUE: *FIND"F10:6:6:"CURRENT LIST OF CLASS NAMES"::ZZ115:DC%ZZ:R:ER%FLAGTRUE 'ER%ER%6THERETRUE:WANTZTNC:5360ADC%ZY:R:ER%İ5500:FLFA:NS%DN%:CNZY:TP(AD):TP0TP4āZX111:S%(ZX)(ADZX):ZXZX18:CC$(ZX)DC$(ZX)::8620:RTHERETRUE:FLAGTRUE:ZYNC5:THEREWANTĢ20:CPAGE:"THAT CLASS ALREADY EX65=Q#SC%(IN)255BG1:90657=R#BF1:C0:TP39050O=U#MEME(IN):SDSD(IN)p=V#ZXI(T(Z(SC%(IN)))):9060=Z#ZXI(W(SC%(IN)))=d#CSCSZX(W2(IN)):W2W2(W2(IN))=i#IT:CS0W21=k#AXAX((CSW2)W1(CA)):BFW1W1W1(CA)>n#CA:AX0W11W:<(#QUARTER GRADESS;"DISP OPTIONSL;"3:CPAGE~;"5:ZX1Z:5);ZX". ";O$(Y,ZX)::ZX:FI$FA$;"ZY01:ZX25:W$;::OP(IN$):ZY(OP0OPZ1):ZY:;"SAVE CLASS DATA<#ZZ18:DC$(ZZ)CC$(ZZ)"":ZZ:DN$CL$(CN):SZ% 1:!DN%0:X:ZX079:SZ%(ZX)(ASZX):ZX:>:!LOADSC%k:!DN%Z:X:ZX079:SC%(ZX)(ASZX):ZX:x:!PUT SZ%:!DN%0:X:ZX079:ASZX,SZ%(ZX):ZX:DN%0:M:E::!FILL CAT ARRAY";"ZX020:C$(ZX)"":ZX:ZX060:CA%(ZX)(ACZX):CA%(ZXR99!Z$"CLASS: "CL$(CN):S(2020PR));Z$;:LI2:PRZ70(S(40)(Z$)):Z)DT$]9:!PRĺ9>!Z$TI$:S(2020PR))Z$::LILI29\!9!LOADST%9!DN%IT%:S:NSDN%:ZX0NS%:ST%(ZX)(ALZX):ZX:ME0:NP%ST%(0):NS0MEP(254)NS9!:!LOAD%:L$(ZX)"":SC%(ZX)0:ZXg8 ZX1NS%:SC%(ST%(ZX))SC%(ST%(ZX))1:L$(ST%(ZX))L$(ST%(ZX))(ZX):ZX:p8 STD8 ZC0:Z0:SD.01:ZX1NS%:ST%(ZX)25584308 ZCZC1:XST%(ZX)ME:ZZ(XX)8 ZX:ZSD(ZZC):SD0SD.018 84! *HEADER95!(3)4(((NP%))))NP%" "S(4))"SCORE";:PRĺS(4))"GRADE"E7PRĺs7(NA)ĺS(1))"-------------------------";7NUĺS(2))"---------";7S(3))"------"S(4))"-----";:PRĺS(4))"------"7PRĺ7LILI477 SLEAZY SORT8 ZX0NPNU(NAPR)15:S(3)(13PR)(16NA):S(4)22PR:LES(1)25NAS(2)9NUS(3):ZX$" PCT ":TP3ZX$"TRANS":6LE)"SCORE":LE)"OUT OF"S(4))ZX$;:PRĺS(4))"LETTER"6PRĺ6(NA)ĺS(1))"STUDENT NAME"13);6(NU)ĺS(2))"NUMBER ";:7S%İ5500:CN0:K5^NS%DN%:TP(AD):TP0TP4āZX111:S%(ZX)(ADZX):ZX5hZX18:CC$(ZX)DC$(ZX)::8620:R:DN$DN$"":ZX18:DC$(ZX)DC$(ZX)"":ZX:Z$DN$:5750:CL$(CN)Z$5r5 *FREQED/TRANS HEADERm6S(1)PR10NA(NUPR)5:S(2)NA4PRʌCPAGE:Z$DN$:5750:"IS "Z$" THE STUDENT":"WHOSE NAME OR NUMBER YOU WANT":PR$"TO "Y$"? ":9150:IN$"Y"ZJ:JNS%:CHTRUE4J:CHĢ12:"STUDENT NOT FOUND.":30000:12:CLINE44@INITIALIZE CLASS ON RUN4JCN(901):CNı5TDC%CN:R:ER-------------";1010PR);"---------":33LILI4C36000:6100U3PRİ30000:c3PRİ9100|3FLAGFALSE::POFF:3SEARCH NAME/NUMBER3NA$DN$:NU$DI$:CHECKFALSE:L(NA$)~4ZX1NS%:DN%ZX:X:M((DI$,1,L)NA$)((DN$,1,L)NA$):MĢ5:2LILI11:::::::Z$"FREQUENCY DISTRIBUTION":S(20PR20));Z$:Z$"USING "A$" SCORES":S(20PR20));Z$:TP3Z$"(MEAN = 50, S.D. = 10)":S(20PR20));Z$:LILI12LILI8'3:55PR);"SCORE INTERVAL";1010PR);"FREQUENCY":55PR);"-I(ME):10PR)"MEAN";2220PRSP(6));Z:v1ZI(SD):10PR)"STANDARD DEVIATION";820PRSP(6));Z:PRİ30000:1TP0TP3ĺ:POFF::10:"SCORE INTERVALS HAVE NOT BEEN SET.":"YOU MAY DO THAT NOW BY USING OPTION 2":"IN GRADING METHOD.":7120":TP3NST%(0):B$"#":A$"TRANSFORMED"0ZNS:10PR)"NUMBER OF SCORES";1020PRSP(6));Z:ZHS::10PR)"HIGHEST SCORE";1320PRSP(6));Z:ZLS::10PR)"LOWEST SCORE";1420PRSP(6));Z+1C2::ZHSLS:10PR)"RANGE";2120PRSP(6));Z::ZS(3)4(Z$))Z$" "S(4)4(OS$))OS$;:PRĺS(4)3)G$L/LILI1:PRĺl/PRLI63İ9100:8500:8100/PRĺ:LILI1:LI20İ30000:/L2/L1:(37)3PRİ30000/PRİ9100(0:TI$"STATISTICAL DATA":8500:N100:B$"%":A$"PERCENTAGES(A0)L1:LSL1:A1:L21SC%(L1):DN%((L$(L1),L2,1)):X:Z$(L1):TP3OSI(T(Z(L1))):7025t.lOSI(W(L1)).o(37)3PRTZ$Z$:8500:8100:Z$TZ$.qOS$(OS):ZOS:6600:G$G1$(G):TP1G$G2$(G).v(NA)ĺS(1))DN$;.{NUĺS(2))DI$;9/E REMOVE THE WRITE-PROTECT STICKER FROM YOUR DISKETTE.":30000:31000MP}ZE8ĺ"DATA DISK BAD - DRIVE OR FORMAT ERROR.":30000:31000MZ}ZE9ĺ"THIS DATA DISKETTE IS FULL.":30000:31000Md}"DOS ERROR NUMBER "ZE"AT LINE "ZN".":32150 Nn} PROCESS B16384,128:16368,0:1:CLINE:AL} STANDARD ERROR PROCESSINGdL }ZE(222):ZN(218)(219)256uL}ZE1532110L}ZUĦL(} USERS ENTRY POINTL2}:12L<}ZE2ZE3ZE7ĺ"PLEASE CHECK YOUR DISKETTE PARAMETERS.":30000:31000EMF}ZE4ĺ"PLEAS%I(W(SC%))3K&T%T%(SC%W1(L2)):W1%W1%W1(L2)GK&L2:T%0W1%1K&C0:SC%I(T%W1%):ASIT%,SC%:ASIT%10,BG:DN%HO:M:X:L1(DN%0):L1K&ACIT%,CT:8950:E:K0uSPACEBAR!L:u16368,0:24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:2559920-J&HIIT%:IT%LO:8600:8400:IT%HI\J&DN%0:X:L101:BG0:HODN%:X:T%0:W1%0J&L21B(CT):ITL2:LOA(CT):SC%(ASLO):W1(L2)09930J&(ASLO10)BG1J&SZ%(LO)2559929J&C0:TP3SC%I(T(Z(SC%))):9929 K&NP%SZ%(LO):SCS(1)18S(2));"------"::LILI3:IIz&CHECK IF END OF PAGE ENCOUNTEREDcI&PRLI21İ30000::I&PRLI62İ9100:8500:9800:I&I&COMPUTE SEM/FINI&DN%0:X:8620:ME0:SD0I&TP3B(CT)39920J&ITB(CT):LOA(CT):NP%SZ%(LO):NP%00kH&S(1)4);:Q$"ITEM "Q1$" "(IT):Q$;S(2)15(Q$));3((W2(A(CA)))))W2(A(CA)):LILI1:9850}H&IT::LILI1H &CAH4&PRİ30000:1:CP:H>&9100:POFF:HH&WEIGHTS HEADERHR&S(1)10PR:S(2)1220PR#I\&S(1)18S(2));"WEIGHT":B(CA)09760*G&PR(37)3İ8500:9800uG&S(1));"CATEGORY "CC$(CA);S(2));3((W1(CA))))W1(CA):LILI1:9850G&PR(37)3İ8500:9800G&IT1:W2(A(CA))1ĺ:LILI1:9850:9760H&Z$CC$(CA):5750:Q1$Z$:IT1B(CA):PR(37)3İ8500:98$)F%F%PRINT WEIGHTSdF%2:CPAGE:12:PR$"DO YOU WANT A LIST OF WEIGHTS? ":9150:IN$"N"ıF%2:CPAGE:12:PR$"DO YOU WANT TO USE A PRINTER? ":9150:PR(IN$"Y")F%PRİ38000F&TI$"LIST OF WEIGHTS: QUARTER "(Q):8500:9800 G &CA18::7(ZX2):"SEMESTER "ZX" GRADE";:30::W1(16ZX)(IN$):ZX:13:9630E%C$(20)(51)(52)(53)(54):SF5:ZX14:5(2ZX):"QUARTER "ZX" GRADE";:30::W1(ZX)(IN$):ZX:15F%(C$(19))0C$(20)C$(20)(59):"FINAL EXAM SCORE";:30::W1(SF)(IN133(S2)))0C$(CT)C$(CT)(552(S2)):11:"SEMESTER EXAM SCORE";:30::W1(3)(IN$)vDX%ZX5160:W2(ZX)1:ZX:D%WEIGHT FIND%(C$(17))0(C$(18))0M1D%ZX5160:W2(ZX)1::FI$FC$GE%3:CPAGE:ZM$:M1C$(20)(56)(58):SF3:ZX12"WEIGHTING EACH SCORE, ENTER THE WEIGHT":"FOR THE ENTIRE CATEGORY."QC$30000:aC%WEIGHT SEMC&%3:CPAGE:ZM$:FI$FC$:C$(CT)(50Q)(51Q)C:%7:"QUARTER "Q" GRADE";:30::W1(1)(IN$)CD%9:"QUARTER "Q1" GRADE";:30::W1(2)(IN$)YDN%(C$(WHOLE NUMBERS. THEY MAY":"ADD UP TO ANY NUMBER."::"TO WEIGHT ALL SCORES EQUALLY, ASSIGN A":"WEIGHT OF ONE TO EACH. TO IGNORE A SCOREITEM, ASSIGN A WEIGHT OF ZERO.":DC$"TO WEIGHT INDIVIDUAL SCORES, FIRST PRESSRETURN FOR THE CATEGORY WEIGHT. AFTER"::ZX01:6:CPAGE:"WHICH SEMESTER? ";::S(IN$):ZX(S0S3):ZX:XA$WEIGHT *PAGE*A$3:CPAGE:"THE SCORE CATEGORIES MUST BE ASSIGNED":"WEIGHTS. INDIVIDUAL SCORES MAY BE":"WEIGHTED WITHIN THEIR RESPECTIVE":"CATEGORIES.":B$"WEIGHTS MUST BE "SCORES CAN BE DISPLAYED WITH:"::5:"1. STUDENT NAMES"::5:"2. STUDENT NUMBERS":PRĺ:5:"3. BOTH"@2$FI$FA$:::CV(37)1@6$CV:CL:"WHICH DO YOU WANT? ";::V(IN$):V1V2PR9270@;$NA(V1V3):NU(V2V3):@T$SEMESTER 12EA^$FI$FA$$(IN$,1):IN$"Y"IN$"N"9160(?#:?#QUARTER 1234?#FI$FA$:ZX01:6:CPAGE::"WHICH QUARTER? ";::Q(IN$):ZX(Q0Q5):ZX:?"$ OUTPUT PARAMETERS?,$2:CPAGE:12:PR$"DO YOU WANT TO USE A PRINTER? ":9150:PR(IN$"Y")h@1$2:CPAGE:7:b>x#C0:SC%I(AXW1):ASIT%,SC%:ASIT%10,BG:DN%HO:M:X:ST(DN%0):ST:ACIT%,CT:8950:E:q>#FORM FEED>#FEED:LI0:>#ZXLI66::ZX:LI0:>#GET YES/NO INPUT WITH PROMPT$>#PR$;:CX(36)1:CY(37)1:FI$FB$"?#CY:CX:CLINE::INZY:ZY1 #ZY:Z$(Z$,1,Z1):8#SEARCH NAME/NUMBERX#NA$DN$:NU$DI$:CHECKFALSE#L(NA$):J1NS%:DN%J:X:M((DI$,1,L)NA$)((DN$,1,L)NA$).$MĢ6:CPAGE:Z$DN$:5750:"IS "Z$" THE STUDENT":"WHOSE NAME OR NUMBER YOU WANT":PR$"TO "Y$"BUGĢ20:CPAGE:Z$:30000:20:CPAGE*";"DBUILDSTD/MEj"N3:CPAGE:10:5:"CALCULATING SD/MEAN: *""XZZ1NT%:IT%ZZ:8600:8400:SD(ZZ)SD:ME(ZZ)ME:10:26:ZZ:ZZ"b"vTRUNCATE"{ZL(Z$):ZLı#Z10:ZYZL11:(Z$,ZY,1)" "Z1R%1Z$"THAT STUDENT ALREADY EXISTS."\!ER%4Z$"THE DATA DISKETTE IS WRITE PROTECTED."!ER%6Z$"STUDENT OR CLASS NOT FOUND."!ER%8Z$"DATA DISK BAD, DRIVE OR FORMAT ERROR."!ER%9Z$"THERE ARE ALREADY 15 CLASSES DEFINED."$"ER%DEF CLASS NAMES"::ZZ115:DC%ZZ:R:ER%FLAGTRUEa 'ER%ER%6İ5500:FLTR:F1TR:ZZ15:5430 ,Z$DN$"":5750:CL$(ZZ)Z$::NC0:ZZ115:(CL$(ZZ))0ĭ((CL$(ZZ),1))0ĺCL$(ZZ):NCZZ 6: |GFMERRORS DEBUGĢ20:DN$:DI$:DC%,DN%&!E:FLAGTRUE:ZYNC|:THEREWANTĢ20:CPAGE:"THAT CLASS ALREADY EXISTS. PLEASE CHOOSE ANOTHER NAME.":30000:FLAGFALSE:WATHEREĢ20:CPAGE:"THAT CLASS DOES NOT EXIST.":30000:FLAGFALSE:FLTRUE:FIND3 "F10:6:6:"CURRENT LIST OIN$"":ZL(DN$):ZLFLFA:DZY1NC:(CL$(ZY),ZL)DN$5360fTHERETRUE:WANTZTNC:5360DC%ZY:R:ER%İ5500:FLFA:NS%DN%:CNZY:TP(AD):TP0TP4āZX111:S%(ZX)(ADZX):ZXZX18:CC$(ZX)DC$(ZX)::8620:RTHERETRUE"IS "CL$(CN)" THE NAME":PR$"OF THE CLASS YOU WANT TO USE? ":9150:IN$"Y"FLAGTRUE:5400:CN0:FLAGWANTĢ22:"NO CLASSES HAVE BEEN DEFINED.":30000:FLFA:FLAGF1FLFA:FI$FD$:3:CLINE:"WHAT IS THE NAME OF THE CLASS?":CLINE::DN$;Y6ZZ1NC:ZW(Z$(ZZ)))Z$(ZZ);:ZZ:ZW2);Z$(ZZ):LILI1:LI63İ9100:Z$Q$:6100@L1(DN%0):L1::"* INDICATES A STUDENT WITH MISSING SCORES.":LILI2:9100:FLAGFALSE:X9250:9400:38000:PR1:OPEN CLASSW3:CPAGE:CN0WANTĺZ(Z))):4124(ZI(ZSZ%(C(ZY))100)SZ$(ZY)(Z):Z$(ZY)"255"Z$(ZY)"***"[ZYZ(ASC(ZY1)):6400:Z$(ZY)G1$(G):TP1Z$(ZY)G2$(G)Z255Z$(ZY)"NA" (ASC(NC)10)1Z$(ZY)Z$(ZY)"*""(NA)ĺDN$;,NUĺ112(NA));DI$L1::"* INDICATES A STUDENT WITH MISSING SCORES.":LILI2:9100QFLAGFALSE:\FORM2dC0 8620:SZ%(C(NC1))255TP3IT%C(NC1):8600:840061008620L101:X:ZY1NC:Z(ASC(ZY)):SZ%(C(ZY))2554124 TP3ZI(T((1))DN$;3ZZ(IT%AS):Y$(ZZ):ZZ255Y$"***"eZZ255ZZZ:6400:Z$G1$(G):TP1Z$G2$(G)(ASIT%10)1Z$Z$"*"ZZ255Z$"NA"NUĺS(2))DI$;(S(3)4)(Y$));Y$;7)Z$LILI1:LI63İ9100:Z$Q$:6000@L1(DN%0):C(1)56:C(2)58:C(3)60:NC3:4100:IT%60:FDİ70009\ T FINAL,SEM1,2 AND EXAM 4440:Q1:Q$"FINAL GRADES, SEM. 1,2 AND EXAM":C(1)56:C(2)58:C(3)59:C(4)60:NC4:4100:IT%60:FDİ7000 FORM16000:DN%0:XL101:X:(NA)ĺS00:IT%60:FDİ7000 5 FINAL&Q1234&FINAL EXAM 4440:Q1:Q$"FINAL GRADES, QT. 1,2,3,4 & EXAM":C(1)51:C(2)52:C(3)53:C(4)54:C(5)59:C(6)60:NC6:4100:IT%60:FDİ7000 H FINAL&S1&23R 4440:Q1:Q$"FINAL GRADES AND SEMESTERS 1 & 2":PHZU1:ZE0:15::ZEĺD$"VERIFY VOM.TXT"DPRZU0:ZEZE9ZE0:OP\34110dPpPRINTER OPTIONSPz:12:"PLEASE PREPARE YOUR PRINTER...":30000PPACT:LEASE REMOVE YOUR DATA DISKETTE AND INSERT YOUR PROGRAM DISKETTE.":30000yO15::ZU1:ZE0:ZEĺD$"VERIFY COM.TXT"OZU0:ZEıO34020O4DATA DISKETTEO>:10:"PLEASE REMOVE YOUR PROGRAM DISKETTE AND INSERT YOUR DATA DISKETTE.":30000+ASIC ERRORNx}ZL53856ZEMN}ZE255ĺ:"ERROR CTRL-C HIT AT LINE #"ZN".":N}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" ERROR AT LINE #"ZN"."N}:"PLEASE REPORT THIS ERROR TO MECC.":30000:NЄDRIVE MESSAGENڄZ34100LO䄗:10:"P0)101:S%(X)0:NP%ST%(0)A3 ZZ1NS%:SC%ST%(ZZ):SC%2558340q3 ZX112:SC%S%(ZX)D%(ZX)D%(ZX)1:ZX12y3 ZX3 ZZ:3 STD3 ZC0:Z0:SD.01:ZX1NS%:ST%(ZX)25584303 ZCZC1:XST%(ZX)ME:ZZ(XX)3 ZX:ZSD(ZZC)4 SD00);"---------------";12);72"----- ------":LI7:H2 SLEAZY SORTn2 ZX0NP%:L$(ZX)"":SC%(ZX)0:ZX2 ZX1NS%:SC%(ST%(ZX))SC%(ST%(ZX))1:L$(ST%(ZX))L$(ST%(ZX))(ZX):ZX:2l COUNT FREQ3v ZX112:D%(ZX)0:ZX:X(TP1)12(TP1)5:S%():Z)DT$:Z$"CLASS: "CL$(CN):S(40))Z$I1Y$" PCT":TP3Y$"TRANS"1Z$"ORDERED LIST OF GRADES":S(40));Z$::62);Y$;8(Y$))"LETTER"16);"STUDENT NAME";:17);"STUDENT NUMBER";13);2"GRADE GRADE":"-------------------------";:10TDC%CN:R:ER%İ5500:CN0:\0^NS%DN%:TP(AD):TP0TP4āZX111:S%(ZX)(ADZX):ZX0hZX18:CC$(ZX)DC$(ZX)::8620:R:DN$DN$"":ZX18:DC$(ZX)DC$(ZX)"":ZX:Z$DN$:5750:CL$(CN)Z$0r0FRED *HEAD**1S(40))Z$;:Z70(S(40)(Z$)S(20PR20));Z$:LILI1&/ LILI8/:55PR);"GRADE INTERVAL";1010PR);"FREQUENCY":55PR);"--------------";1010PR);"---------"/LILI3/ 8300:8800/49100/>FLAGFALSE:9500:/@INITIALIZE CLASS ON RUN/JCN(901):CNıPOFF:10:"GRADE INTERVALS HAVE NOT BEEN SET.":"YOU MAY DO THAT NOW BY USING OPTION 2":"IN GRADING METHOD.":7210/ :::::Z$"FREQUENCY DISTRIBUTION":S(20PR20));Z$:Z$"USING "A$" GRADES":S(20PR20));Z$:TP3Z$"(MEAN = 50, S.D. = 10)":S::10)"HIGHEST GRADE";23SP(6));Z::ZLS:10)"LOWEST GRADE";24SP(6));Z-C2::ZHSLS:10)"RANGE";31SP(6));Z::ZI(ME):10)"MEAN";32SP(6));Z::ZI(SD):10)"STANDARD DEVIATION";18SP(6));Z-LILI11-FO0t.TP0TP3İ9100:":A$"PERCENTAGE":TP3NST%(0):B$"#":A$"TRANSFORMED"P,Y0HS0:LS0:SD0,Z$Q$:S(40))Z$;:Z70(S(40)(Z$)):Z)DT$:Z$"CLASS: "CL$(CN):S(40))Z$:Z$"STATISTICAL DATA":S(40))Z$::LI4O-ZNS:10)"NUMBER OF GRADES";20SP(6));Z:ZHG)"+(ASC(NC)10)1Z$Z$"*"8+(NA)ĺS(1))DN$;L+NUĺS(2))DI$;s+(S(3)4)K)Y$" "Z$:LILI1+LI63İ9100:Z$Q$:6000:PGPG1+L2+L1+:"* INDICATES A STUDENT WITH MISSING SCORES.":LILI2+91008,:N100:B$"%lFO1b*vHS0:LS0:A0::8600:NP%100:YDN%:8400:8200:6000:LI8:L1NP%01:SC%(L1)07130*HSHS(A0)L1:A1:L21SC%(L1):DN%((L$(L1),L2,1)):X:Y$(L1):K(Y$):L1255Y$"***"*LSL1*L1255ZL1:6400:Z$G1$(G)+TP1Z$G2$(IT((C$(CT),ZX,1)):Z(ASIT):Z$"***":Z255Z$(Z))5(Z$));Z$"/";:ZSZ%(IT):3((Z)));Z;:ZXY(ZXY)ĺ:LILI1)ZX::LILI1:PRLI62İ5700:8790)PRLI18İ30000::8790)CT:)PRİ30000:)")XFREQED)bZ$Q$*A$,9)" ";3(%ZZ1NC1:ZW5)"-----";:::LI8:](DETERMINE LETTER GRADE GIVEN GRADE Z( G57(TP1):ZZ1G:ZS%(ZZ)GZZ:ZZ13(ZZ:(PRINT ALL GRADES(Y44PR:CT18:LB(CT):L06670(:" ";CC$(CT)::LILI37)ZX1L:1))b'ZB);:ZZ1NC:ZW5)HD$(C(ZZ)50);:ZZ::ZB);:ZZ1NC:ZW5)T$;:ZZ:ZW5)" LTR "'(NA)ĺ"STUDENT NAME";14);'(NA)ĺ13);'NUĺ"NUMBER ";'ZZ1NC1:ZW5)"GRADE";::'(NA)ĺDA$" ";'(NA)ĺ13); ($NUĺ(D(NA)ĺS(1))DA$;+&NUĺS(2))(DA$,9);H&S(3))"----- ------"V&LI7FO:a&HEAD2&S(40));Z$;:Z70(S(40)(Z$)):Z)DT$:Z$"CLASS: "CL$(CN):S(40));Z$::T$" PCT ":TP3T$"TRANS"'ZB26NA10NU13(NA):ZX80ZB:ZW(ZX(NCFOZ$"ORDERED LIST OF GRADES":S(40))Z$1%w%zS(1)10NA(NU)5:S(2)NA4NU(NA)15:S(3)416(NA):LES(1)25NAS(2)9NUS(3)%LE)T$" LETTER":(NA)ĺS(1))"STUDENT NAME"13);%NUĺS(2))"NUMBER ";%S(3))"GRADE GRADE"&? ":9150:IN$"Y"ZJ:JNS%:CHTRUE:FLAGTRUE}$J:CHĢ12:"THAT NAME IS NOT ON THIS LIST.":30000:12:CLINE:FLAGFALSE$$pHEAD1$uS(40));Z$;:Z70(S(40)(Z$)):Z);DT$:Z$"CLASS: "CL$(CN):S(40));Z$:T$" PCT ":TP3T$"TRANS"+%v"]";:(37)1:2:SKI,78,IN$:(IN$)0CO$(ZY)IN$"":ZYZY1\Cn(ZZ((IN$)0ZY10):ZZ:rCx( *SAVE COMMENTSC}(SL%CS%DR%1CD2Z1:34000:CD1C(D$"OPEN COM.TXT":D$"WRITE COM.TXT":ZZ09:QU$CO$(ZZ)QU$:ZZ:D$"CLOSE COM.TXT"C(D(PRIO1+BA(SL%CS%DR%1CD2Z1:34000:CD1{BF(D$"OPEN COM.TXT":D$"READ COM.TXT":ZZ09:CO$(ZZ):ZZ:D$"CLOSE COM.TXT"BK(BP( *CHANGE COMMENTSBZ(3:CPAGE:"ENTER NEW COMMENTS":ZZ09:CO$(ZZ)"":ZZ:ZY0>Cd(ZZ01:CPAGE:"[";:(37)2:40:00:A(( *PROGRESS HEADERA2(:Z$CL$(CN):S(40));Z$;:Z70(S(40)(Z$)):Z)DT$:Z$"PROGRESS REPORT":S(40))Z$:Z$"STUDENT NAME: "DN$:5750:S(40))Z$A7(:"CURRENT SCORES ( *** MEANS MISSING SCORE)":LI6:A<(GET COMMENTSA=(LOıB>(L00:FLAGFALSE:&@ (*PROGRESS REPORTSB@(ZST:8640:10280:6600s@(Z(AS50Q):6400:G$G1$(G):TP1G$G2$(G)@((AS50Q)255G$"***"A(::"ESTIMATED GRADE TO DATE: "G$::"COMMENTS:"::ZX09:CO$(ZX):ZX::::"TEACHER: "TN$:LILI20:91:10250,?'MFMFMIS:ZZ(DN%0):ZZ::9500?'MFFALSEĢ10:CPAGE:"THERE ARE NO STUDENTS WITH MISSING":"GRADES IN THIS CLASS.":30000?'FLAGFALSE:?' *ENTIRE CLASS?'38000@(DN%0:X:L401:STDN%:8620:8700:10250:L4(DN%0):L4::9500:10250:">'9500:FLAGFALSE:9>' *MISSING GRADESD>'38000w>'POFF:12:"LOOKING FOR MISSING SCORES.":PACT>'8620:8700:DN%0:X:ZZ01:FLAGFALSE:MISFALSE:ZDN%>'8640:ZY049:(CA%(ZY)9SC%(ZY)255)MISTRUE:ZY50?'ZY:MISSTZ0400,10220,10020'=V'L3(FLAGTRUE):L3J=Z'CS%SL%DR%1CD1Z0:34000U=\'FL0:p=`' *INDIVIDUAL STUDENT=j'FI$FH$:L101:3:CPAGE:"STUDENT: ";::DN$IN$"":(DN$)010130=t'Y$"PRINT":5800:L1J:L1:STZ:CH10090=~'38000 >'8620:87NGE":PR$"THESE COMMENTS? ":9150:IN$"Y"İ10320:10360><3'q<8'L301::Z$O$(1,4):S(20))Z$:Y4:Z6:8900(37)3PRİ5700[ PR15);DN$;PR10);DI$uNUMNUM1:LINELINE1PRĺ:LILI1LINE64PRİ5930:5700LINE20PRİ30000:L1(DN%0):L1#PR(37)3İ30000(LINE64PRİ593FALSEFLAGTRUE:5060/OP3FLAGTRUE:5060`:Z$O3$(OP):S(20):Z$:34,2:OP5100,520034,0:L1(FLAGTRUE):L1:FLAGFALSE:PRINT NAME/NUMBERPAGE0:NUM0:Z1:5:PR$"DO YOU WANT TO USE A PRINTER? ":9150PR(IN$"Y"):PRDN%"L1(FLAGTRUE):L1:35,243FLAGFALSE:FPRINT CLASSES{NUM0:FLAGFALSE:L101::Z$O1$(5):S(20):Z$5:I13:5);I". ";O3$(I)::IFI$FA$:L201:I26:W$;::OP(IN$):L2(OP0OP4):L2WANTTRUE:OP3İ5300:FLAGZZ$"DELETE":20:Z8$"DELETING,":Z7$:35,19:FLAGFALSEL101:FI$FD$:3:CPAGE:S$"DELETED? ";::DN$IN$"":(DN$)0FLAGTRUE:4040Y$"DELETE":5800:CHECKTRUEĢ11:Z$DN$:5750:Z$" HAS BEEN DELETED":"FROM "CL$(CN)".":30000:DN%Z:T:E:NS%NE1KPACT: YOUR PROGRAM DISKETTE AND INSERT YOUR DATA DISKETTE.":30000jJHZU1:ZE0:15::ZEĺD$"VERIFY VOM.TXT"JRZU0:ZEZE9ZE0:J\34110JpACTIVATE PRINTERJzDT$""ė:8550J2:CPAGE:12:"PLEASE PREPARE YOUR PRINTER.":30000:2:CPAGE:KMECC.":30000:"IЄDRIVE MESSAGE0IڄZ34100I䄗:10:"PLEASE REMOVE YOUR DATA DISKETTE AND INSERT YOUR PROGRAM DISKETTE.":30000I15::ZU1:ZE0:ZEĺD$"VERIFY COM.TXT"IZU0:ZEıI34020I4 DATA DISKETTE=J>:10:"PLEASE REMOVE}"DOS ERROR NUMBER "ZE"AT LINE "ZN".":32150HHn} PROCESS BASIC ERRORXHx}ZL53856ZEH}ZE255ĺ:"ERROR CTRL-C HIT AT LINE #"ZN".":H}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" ERROR AT LINE #"ZN"."I}:"PLEASE REPORT THIS ERROR TO ECK YOUR DISKETTE PARAMETERS.":30000:31000GF}ZE4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM YOUR DISKETTE.":30000:31000GP}ZE8ĺ"DATA DISK BAD - DRIVE OR FORMAT ERROR.":30000:31000GZ}ZE9ĺ"THIS DATA DISKETTE IS FULL.":30000:31000-Hd,0:24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CLINE:12::F} STANDARD ERROR PROCESSINGF }ZE(222):ZN(218)(219)256F}ZE1532110F}ZUĦF(} USERS ENTRY POINTF2}:12,G<}ZE2ZE3ZE7ĺ"PLEASE CH000:POFF:12:"LOOKING FOR GRADES BELOW "CU".":PACT{E(DN%0:X:L401:ZDN%:X:SC%(ASQ50):SC%CUSTZ:10250:MI1E(L4(DN%0):L4:POFF:MIĢ2:CPAGE:11:"THERE WERE NO GRADES BELOW "CU".":30000E(FL0:EJMF0E0uSPACEBAR_F:u16368NT STUDENTS WITH GRADES BELOW ND(2:CPAGE:4:"PROGRESS REPORTS WILL BE PRINTED FOR":"STUDENTS WHOSE GRADE IS BELOW A":"CUT-OFF NUMBER."D(12:CPAGE:"WHAT IS YOUR CUT-OFF NUMBER? ";:FI$FC$::(IN$)25010420D(8700D(CU(IN$)5E(MI0:38N IS NORMAL. THE MEAN IS":"50 AND THE STANDARD DEVIATION IS 10.":30000P10 :"LETTER GRADES MAY BE ASSIGNED TO":"INTERVALS OF TRANSFORMED SCORES. SCORES":"HIGHER THAN 1 STANDARD DEVIATION ABOVE":"THE MEAN ARE OFTEN CONSIDERED TO BE":"AN "QU$EMOVE YOUR PROGRAM DISKETTE AND INSERT YOUR DATA DISKETTE.":30000o-HZU1:ZE0:15::ZEĺD$"VERIFY VOM.TXT"-RZU0:ZEZE9ZE0:-\34110-pPRINTER INIT-z:12:"PLEASE PREPARE YOUR PRINTER.":30000::-NE1-PACT:A TO MECC.":30000:',Є DRIVE MESSAGE5,ڄZ34100,䄗:10:"PLEASE REMOVE YOUR DATA DISKETTE AND INSERT YOUR PROGRAM DISKETTE.":30000,15::ZU1:ZE0:ZEĺD$"VERIFY COM.TXT",ZU0:ZEı,34020,4 DATA DISKETTEB->:10:"PLEASE R1+d}"DOS ERROR NUMBER "ZE"AT LINE "ZN".":32150L+n} PROCESS BASIC ERROR\+x}ZL53856ZE+}ZE255ĺ:"ERROR CTRL-C HIT AT LINE #"ZN".":+}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" ERROR AT LINE #"ZN".",}:"PLEASE REPORT THIS ERRORE CHECK YOUR DISKETTE PARAMETERS.":30000:31000*F}ZE4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM YOUR DISKETTE.":30000:31000*P}ZE8ĺ"DATA DISK BAD - DRIVE OR FORMAT ERROR.":30000:31000+Z}ZE9ĺ"THIS DATA DISKETTE IS FULL.":30000:31000):u16368,0:24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CLINE:)} STANDARD ERROR PROCESSING) }ZE(222):ZN(218)(219)256)}ZE1532110)}ZUĦ)(} USERS ENTRY POINT)2}:120*<}ZE2ZE3ZE7ĺ"PLEASASZZ):ZZ:(!PUTST%$(!PUTSZ%0(!PUTSC%d(!DN%Z:X:ZZ079:ASZZ,SC%(ZZ):ZZ:DN%Z:M:(#GET YES/NO INPUT WITH PROMPT$ (#PR$;:CX(36)1:CY(37)1:FI$FB$(#CY:CX:CLINE::IN$(IN$,1):IN$"Y"IN$"N"9160(#(0uSPACEBARc):TP0TP4āZX111:S%(ZX)(ADZX):ZX'hZX18:CC$(ZX)DC$(ZX)::8620:R:DN$DN$"":ZX18:DC$(ZX)DC$(ZX)"":ZX:Z$DN$:5750:CL$(CN)Z$'r'!LOADSZ%'!DN%0:X:ZZ050:SZ%(ZZ)(ASZZ):ZZ:'!LOADSC% (!DN%Z:X:ZZ079:SC%(ZZ)(;::"! !":"&*ZZLI66:::1&RBADERRORS`&\"ERROR #"(222)" AT "(218)(219)256"."u&aDC%,DN%,ER%,I,J&bDN$:I18:DC$(I):&cDI$:&@INITIALIZE CLASS ON RUN&JCN(901):CNı&TDC%CN:R:ER%İ5500:CN0:)'^NS%DN%:TP(ADN$:5750:"IS "Z$" THE STUDENT":"WHOSE NAME OR NUMBER YOU WANT":PR$"TO "Y$"? ":9150:IN$"Y"ZJ:JNS%:CHTRUE:FLAGTRUE%J:CHĢ12:"THAT NAME IS NOT ON THIS LIST.":30000:12:CLINE:FLAGFALSE%%Z178:"-";::"-":& Z19:"! "1:$vTRUNCATE&${ZL(Z$):ZLıW$Z10:ZYZL11:(Z$,ZY,1)" "Z1ZY:ZY1m$:Z$(Z$,1,Z1):$ *SEARCH NAME/NUMBER$NA$DN$:NU$DI$:CHECKFALSE$L(NA$):J1NS%:DN%J:X:M((DI$,1,L)NA$)((DN$,1,L)NA$)}%MĢ6:CPAGE:Z$DPRĺ9#"NUMBER ";:5920:5910:LINE7:PAGEPAGE1:I#DHEADER ONEy#NZ$"CLASS: "CL$(CN)::S(20PR20));Z$:$XPR22);"STUDENT NAME";88PR);"STUDENT NUMBER":15PR);"------------------------";10PR);"---------------"::LINE7:PAGEPAGELN:CPAGE:"THERE ARE ALREADY 15 CLASSES DEFINED.":5570q"ER%9ĉ:15:CPAGE:"THIS CLASS IS FULL.":FLAGTRUE"ER%DEBUGİ30000:LN:CPAGE:35,24:LN""HEADER TWO"Z$"CLASS: "CL$(CN):S(20PR20));Z$:""STUDENT NAME";14);#ER%1ĢLN:CPAGE:"THAT STUDENT ALREADY EXISTS."q!ER%4ĢLN:CPAGE:"THE DATA DISKETTE IS WRITE PROTECTED."!ER%6FROMĢLN:CPAGE:"STUDENT OR CLASS NOT FOUND."!ER%8ĢLN:CPAGE:"DATA DISK BAD, DRIVE OR FORMAT ERROR."8"CRTRUEER%9ĢASS NAMES"::ZZ115:DC%ZZ:R:ER%FLAGTRUE] 'ER%ER%6İ5500:FLTR:F1TR:ZZ15:5430 ,Z$DN$"":5750:CL$(ZZ)Z$::NC0:ZZ115:(CL$(ZZ))0ĭ((CL$(ZZ),1))0ĺCL$(ZZ):NCZZ 6: |GFM ERRORS LN21:DEBUGĢLN:DN$:DI$:DC%,DN%2!RUE:ZYNCxTHEREWANTĢ20:CPAGE:"THAT CLASS ALREADY EXISTS. PLEASE CHOOSEANOTHER NAME.":30000:FLAGFALSE:WATHEREĢ20:CPAGE:"THAT CLASS DOES NOT EXIST.":30000:FLAGFALSE:FLTRUE:FIND/ "F10:6:6:"CURRENT LIST OF CL:'Є DRIVE MESSAGE$'ڄZ34100~'䄗:10:"PLEASE REMOVE YOUR DATA DISKETTE AND INSERT YOUR PROGRAM DISKETTE.":30000'15::ZU1:ZE0:ZEĺD$"VERIFY COM.TXT"'ZU0:ZEı'34020'4 DATA DISKETTE1(>:10:"PLEASE REMOVE YOUR PROGRANUMBER "ZE"AT LINE "ZN".":32150;&n} PROCESS BASIC ERRORK&x}ZL53856ZE~&}ZE255ĺ:"ERROR CTRL-C HIT AT LINE #"ZN".":&}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" ERROR AT LINE #"ZN"."'}:"PLEASE REPORT THIS ERROR TO MECC.":30000ETTE PARAMETERS.":30000:31000v%F}ZE4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM YOUR DISKETTE.":30000:31000%P}ZE8ĺ"DATA DISK BAD - DRIVE OR FORMAT ERROR.":30000:31000%Z}ZE9ĺ"THIS DATA DISKETTE IS FULL.":30000:31000 &d}"DOS ERROR 7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CLINE:r$} STANDARD ERROR PROCESSING$ }ZE(222):ZN(218)(219)256$}ZE1532110$}ZUĦ$(} USERS ENTRY POINT$2}:12%<}ZE2ZE3ZE7ĺ"PLEASE CHECK YOUR DISKORE DC$#q DC%CN:R:ER%ijM#v ZZ18:DC$(ZZ)C$(ZZ):ZZ:DN$CL$(CN):W:ES# w##GET YES/NO INPUT WITH PROMPT$ ##PR$;:CX(36)1:CY(37)1:FI$FB$##CY:CX:CLINE::IN$(IN$,1):IN$"Y"IN$"N"9160###0uSPACEBARR$:u16368,0:24:18:DC$(ZX)DC$(ZX)"":ZX:Z$DN$:5750:CL$(CN)Z$:TH1>"rM"SAVECLASS"DC%CN:R:AD,Z:ZZ111:ADZZ,SC%(ZZ):ZZ:ZZ18:DC$(ZZ)C$(ZZ)"":ZZ:DN$CL$(CN)"":W:ER%ij"E:" DISP CAT" ZZ172:C$(ZZ);:20:C$(ZZ1)::ZZ:#l ST(Z$)11:(Z$,ZY,1)" "Z1ZY:ZY1>!ZY:Z$(Z$,1,Z1):[!@INITIALIZE CLASS ON RUNp!JCN(901):CNı!TDC%CN:R:ER%İ5500:CN0:!^NS%DN%:TP(AD):TP0TP4āZX111:SC%(ZX)(ADZX):ZX8"hZX18:C$(ZX)DC$(ZX)""::R:DN$DN$"":ZXECTED."3 ER%6Z$"STUDENT OR CLASS NOT FOUND."i ER%8Z$"DATA DISK BAD, DRIVE OR FORMAT ERROR." ER%9Z$"THERE ARE ALREADY 15 CLASSES DEFINED." ER%DEBUGĢ20:CPAGE:Z$:30000:20:CPAGE  vTRUNCATE {(Z$)0ı&!Z10:ZY:ZZ15:5430k,Z$DN$"":5750:CL$(ZZ)Z$::NC0:ZZ115:(CL$(ZZ))0ĭ((CL$(ZZ),1))0ĺCL$(ZZ):NCZZs6:|GFMERRORSDEBUGĢ20:DN$:DI$:DC%,DN%ER%1Z$"THAT STUDENT ALREADY EXISTS." ER%4Z$"THE DATA DISKETTE IS WRITE PROTHOOSEANOTHER NAME.":30000:FLAGFALSE:sWATHEREĢ20:CPAGE:"THAT CLASS DOES NOT EXIST.":30000:FLAGFALSE:FLTRUE:FIND"F10:6:6:"CURRENT LIST OF CLASS NAMES"::ZZ115:DC%ZZ:R:ER%FLAGTRUE 'ER%ER%6İ5500:FLTR:F1TRTRUE:WANTZTNC:53609DC%ZY:R:ER%İ5500:FLFA:}NS%DN%:CNZY:TP(AD):TP0TP4āZX111:SC%(ZX)(ADZX):ZXZX18:C$(ZX)DC$(ZX)"":THERETRUE:FLAGTRUE:ZYNC':THEREWANTĢ20:CPAGE:"THAT CLASS ALREADY EXISTS. PLEASE CUE:SCN0:5400:FLAGWANTĢ22:"NO CLASSES HAVE BEEN DEFINED.":30000:FLFA:hFLAGF1FLFA:FI$FD$:3:CLINE:CN0:"WHAT IS THE NAME OF THE CLASS?":CLINE::DN$IN$"":ZL(DN$):ZLFLFA:ZY1NC:(CL$(ZY),ZL)DN$5360THERE 1":21:CPAGE8 I:23304B ZTP:8100:FLAG0:A` 5-POINTOe GT2:TG5xj TP2āI15:SC%(I)D%(I,1):I:TP2o 2320OPEN CLASS3:CPAGE:CN0WANTĺ"IS "CL$(CN)" THE NAME":PR$"OF THE CLASS YOU WANT TO USE? ":9150:IN$"Y"FLAGTRC%(I)ZX):ZZ0ITGĢI4:7:CLINE:" 0 -";:ZSC%(I1)1:SP(4))Z:SC%(I)0:JI1TG:SC%(J)0:J4:7:CLINE:" 0 - 0":J:ITG:23603 SC%(I)(ZXZZ)(SC%(I)ZX):I4:7:CLINE:ZSC%(I):SP(4))Z" -";:ZSC%(I1)1:SP(4))Z:ZXFI$"11 %$2SP(4))Z;" -";:ZSC%(I1)1(SC%(I1)0):SP(4))Z:IT 18:CPAGE:PR$Z8$:9150g$ IN$"Y"2370) 18:CPAGE:21:Z9$. FI$FG$:I1TG/ ZSC%(I1)1:J01:I4:13:SP(4))Z;:7::ZZ(IN$):ZX((IN$)0):J(ZZZZX):J0 ZZ(ZXZZ)(S"A"QU$"."300008TP3āI15:SC%(I)D%(I,2):I[5:CPAGE:TG5:GT2:TP3:2320i12-POINTx TG12:GT1 TP1āI112:SC%(I)D%(I,0):I:TP17 5:5:G$(1,GT);:7:ZSC%(1):SP(4))Z;" - 100":I2TG:I4:5:G$(I,GT);:7:ZSC%(I):#L2(FLAGTRUE):L2:FLAGFALSE:A#PRINT SCORE ITEM AND INFOI#C0k#WANTTRUE:5300:FLAGFALSEı#5600:FLAGFALSEı# 9250:2:CPAGE:12:"DO YOU WANT A FREQUENCY":PR$"DISTRIBUTION? ":9150:FD(IN$"Y"):6500:FDİ4000#PRİ9500 $550:9500:FLAGFALSE:("PRINT SCORESL"L201::Z$O1$(3):S(20):Z$p"5:I15:5);I". ";O3$(I)::"FI$FA$:L301:I25:W$;::OP(IN$):L3(OP0OP6):L3"OP5FLAGTRUE:5060":Z$O3$(OP):S(20):Z$:OP5100,5250,4500,4900":CT1:ZLBEENM!Z$(SZ%(C(CT))):ZW(Z$))Z$;:CTCT1:ZL:::LILI2:i!$PRINT LETTER GRADE KEY!.WANT1:5300:FLı!8X57(TP1):S%(0)101:S%(X)0!BPR$"DO YOU WANT TO USE A PRINTER? ":2:CPAGE:12:9150:PR(IN$"Y"):PRİ38000"L6:Z70(S(40)(Z$)):Z)DT$:6 pZB25:ZX80ZB:ZW6n z"STUDENT NAME"14);:ZZ1NC:ZW5)HD$(ZZ);:ZZ: "------------------------- "; ZZ1NC:ZW5)"-----";:::LI5: PRINT OUT NUMBER POSSIBLE!8620:"NUMBER POSSIBLE ";DN$;:CT1:L3BEEN:SC%(ASC(CT)):Z$(SC%):SC%255Z$"***"ZW(Z$))Z$;:CTCT1:L3::LILI1:LI63İ5700:ZDDN%:4700:4800:DN%ZDL2(DN%0):L2:5700L1:9500:FL0:\FORMAT TABULAR OUTPUT fZ$"CLASS: "CL$(CN):S(40));Z$;00:$L11PA:ENL19:ENTENTFCT1:BEG(L11)91:L2BEENbB(CA)0CACA1:4550C(CT)D(CA):ZIT:HD$(CT)(CC$(CA),3)(" ",1,SP(2))(IT):ITIT1:ITB(CA)IT1:CACA1@CTCT1:L2:NCENBE1:4700:4800:DN%0:X:L201:X::PRİ5700)FLAGFALSE::POFF:MPRINT ALL GRADES, TABULAR FORMVQP1_PR1|WANTTRUE:5300:FLAGı38000:8700:T0:L118:TTB(L1)::PA((T1)9)1:IT1:CA1T0İ9500::12:"NO SCORES HAVE BEEN ENTERED.":300A$" SCORES":S(20PR20));Z$:TP3Z$"(MEAN = 50, S.D. = 10)":S(20PR20));Z$:LILI1hLILI8:55PR);"SCORE INTERVAL";1010PR);"FREQUENCY":55PR);"--------------";1010PR);"---------":LILI46000:6100PRİ30000N";820PRSP(6));Z:PRİ30000:TP0TP3ĺ:POFF::10:"SCORE INTERVALS HAVE NOT BEEN SET.":"YOU MAY DO THAT NOW BY USING OPTION 2":"IN GRADING METHOD.":4080\LILI11:::::::Z$"FREQUENCY DISTRIBUTION":S(20PR20));Z$:Z$"USING "PRSP(6));Z:ZHS::10PR)"HIGHEST SCORE";1320PRSP(6));Z:ZLS::10PR)"LOWEST SCORE";1420PRSP(6));Z:ZHSLS:10PR)"RANGE";2120PRSP(6));Z::C2:ZI(ME):10PR)"MEAN";2220PRSP(6));Z:#ZI(SD):10PR)"STANDARD DEVIATIORLI63İ5700:8500:8100<PRĺ:LILI1:LI20İ30000:DL2`L1:(37)3PRİ30000nPRİ5700:TI$"STATISTICAL DATA":8500:N100:B$"%":A$"PERCENTAGE":TP3NST%(0):B$"#":A$"TRANSFORMED"rZNS:10PR)"NUMBER OF SCORES";1020(Z(L1))):4025!OSI(W(L1))TOS$(OS):ZOS:6600:G$G1$(G):TP1G$G2$(G)(37)3PRTZ$Z$:8500:8100:Z$TZ$(NA)ĺS(1))DN$;NUĺS(2))DI$;S(3)4(Z$))Z$" "S(4)4(OS$))OS$;:PRĺS(4)3)G$LILI1:PRĺPT PLEASE..."HS0:LS0:A0:8600:NP%ST%(0):8400:8200::TI$"ORDERED LIST OF SCORES":8500:8100:L1NP%01:SC%(L1)04055(37)3PRİ8500:8100HSHS(A0)L1:LSL1:A1:L21SC%(L1):DN%((L$(L1),L2,1)):X:Z$(L1):C0:TP3OSI(TKETTE AND INSERT YOUR DATA DISKETTE.":30000Y*HZU1:ZE0:15::ZEĺD$"VERIFY VOM.TXT"r*RZU0:ZEZE9ZE0:}*\34110SЄ DRIVE MESSAGE)ڄZ34100y)䄗:10:"PLEASE REMOVE YOUR DATA DISKETTE AND INSERT YOUR PROGRAM DISKETTE.":30000)15::ZU1:ZE0:ZEĺD$"VERIFY COM.TXT")ZU0:ZEı)34020)4 DATA DISKETTE,*>:10:"PLEASE REMOVE YOUR PROGRAM DISM DISKETTE AND INSERT YOUR DATA DISKETTE.":30000^(HZU1:ZE0:15::ZEĺD$"VERIFY VOM.TXT"w(RZU0:ZEZE9ZE0:(\34110YYP(ZL):(ZP);:ZM(ZP127):ZLZL1:ZM:" ERROR AT LINE #"ZN"."(}:"PLEASE REPORT THIS ERROR TO MECC.":30000:)62İ5700:8790'3<PRLI18İ30000:13FCT:73ZC3d?SCOREL3eQP0e3fX57(TP1):S%(X)03gTP3Ģ2:CPAGE:12:"COMPUTING STANDARD DEVIATION...":8600:8400:3iPRİ380004sZ$CC$(CT):5750:T$Z$:TI$"LIST OF SCORES":DN%0:X:NP%(AS Y44PR:CT18:LB(CT):L06470<2(37)3PRİ8790[2:" ";CC$(CT)::LILI32ZX1L:IT((C$(CT),ZX,1)):Z(ASIT):Z$"***":Z255Z$(Z)2#5(Z$));Z$"/";:ZSZ%(IT):3((Z)));Z;:ZXY(ZXY)ĺ:LILI132ZX::LILI1:PRLI:1?TYPE1INTERVALS11X(TP1)12(TP1)5H1ZZ1X:55PR);i1C$G1$(ZZ):TP1C$G2$(ZZ)1Z$(S%(ZZ)):Y$(S%(ZZ1)1):J(Z$):K(Y$):C$;4);Z$;" - ";Y$;2010PR(JK));D%(ZZ):LILI1:PRĺ:LILI11ZZ:1PRINT ALL SCORES%20pCOUNTFREQ\0zZZ012:D%(ZZ)0:ZZ:X(TP1)12(TP1)5:S%(0)101:S%(X)0:NP%ST%(0)0C0:L11NS%:ST%(L1)25560500TP3SC%I(T(Z(ST%(L1)))):60400SC%I(W(ST%(L1)))0L2112:SC%S%(L2)D%(L2)D%(L2)1:L2120L21L1,1,L)NA$)/MĢ6:CPAGE:Z$DN$:5750:"IS "Z$" THE NAME OR":"NUMBER OF THE STUDENT WHOSE SCORES YOU":PR$"WANT TO "Y$"? ":9150:IN$"Y"ZJ:JNS%:CHTRUE:FLAGTRUE/J:CHĢ12:"THAT NAME IS NOT ON THIS LIST.":30000:12:CLINE:FLAGFALSE0DFORMFEED&.NZXLI66::ZX:NE0:4.vTRUNCATEC.{(Z$)0ıw.Z10:ZY(Z$)11:(Z$,ZY,1)" "Z1ZY:ZY1.ZY:Z$(Z$,1,Z1):.SEARCH NAME/NUMBER.NA$DN$:NU$DI$:CHECKFALSE /L(NA$):J1NS%:DN%J:X:M((DI$,1,L)NA$)((DN$ FOR THAT CATEGORY.":30000:FLAGFALSE:P-B(CT)1N1:IT%A(N):8600:]-CU1ı-I01:3:CLINE:"WHICH OF THE "B(CT)" SETS OF SCORES":"IN THIS CATEGORY DO YOU":"WANT TO USE? ";::N(IN$)-I(N0NB(CT)):I:IT%A(N):8600: .900:CTZ:CTĢ20:"THAT SCORE CATEGORY DOES NOT EXIST FOR":"THIS CLASS. TO ENTER A NEW SCORE":"CATEGORY, USE "QU$"GRADING METHOD"QU$".":30000,I(CT0):I:CT1ı,-8700:3:CPAGE:FI$FG$:B(CT)0(CU0CU2)Ģ12:"NO SCORES HAVE BEEN ENTEREDSK BAD, DRIVE OR FORMAT ERROR."U+ER%9Z$"THERE ARE ALREADY 15 CLASSES DEFINED."+ER%DEBUGĢ20:CPAGE:Z$:30000:20:CPAGE++OPENCAT+3:CPAGE:5:8800+I01:3:FI$FF$:SC$;::CA$IN$"":(CA$)0FLAGFALSE:CT1:5630,8((CL$(ZZ),1))0ĺCL$(ZZ):NCZZ)*6:8*|GFMERRORSZ*DEBUGĢ20:DN$:DI$:DC%,DN%*ER%1Z$"THAT STUDENT ALREADY EXISTS."*ER%4Z$"THE DATA DISKETTE IS WRITE PROTECTED."*ER%6Z$"STUDENT OR CLASS NOT FOUND."+ER%8Z$"DATA DILASS DOES NOT EXIST.":30000:FLAGFALSE:7)FLTRUE:A)FIND)"F10:6:6:"CURRENT LIST OF CLASS NAMES"::ZZ115:DC%ZZ:R:ER%FLAGTRUE)'ER%ER%6İ5500:FLTR:F1TR:ZZ15:5430!*,Z$DN$"":5750:CL$(ZZ)Z$::NC0:ZZ115:(CL$(ZZ))0ZXS(ZX18:CC$(ZX)DC$(ZX)::8620:R:DN$DN$"":ZX18:DC$(ZX)DC$(ZX)"":ZXr(THERETRUE:FLAGTRUE:ZYNC(:THEREWANTĢ20:CPAGE:"THAT CLASS ALREADY EXISTS. PLEASE CHOOSEANOTHER NAME.":30000:FLAGFALSE:))WATHEREĢ20:CPAGE:"THAT CLINE:CN0:"WHAT IS THE NAME OF THE CLASS?":CLINE::DN$IN$"":ZL(DN$):ZLFLFA:|'ZY1NC:(CL$(ZY),ZL)DN$5360'THERETRUE:WANTZTNC:5360'DC%ZY:R:ER%İ5500:FLFA:(NS%DN%:CNZY:TP(AD):TP0TP4āZX111:S%(ZX)(ADZX):FL0:& *OPEN CLASS&3:CPAGE:CN0WANTĺ"IS "CL$(CN)" THE NAME":PR$"OF THE CLASS YOU WANT TO USE? ":9150:IN$"Y"FLAGTRUE:&CN0:5400:FLAGWANTĢ22:"NO CLASSES HAVE BEEN DEFINED.":30000:FLFA:&FLAGF1FLFA:V'FI$FD$:3:C38000>%ZZ1NS%:DN%ZZ:X:Z$DN$:8790:6400:PRĺ::::V%PR(37)3İ30000d%ZZ:5290%Y$"PRINT":DN$IN$"":5800:L1J:L1:M5265%DN%Z:X:Z$DN$"":PRİ38000%8790:6400:PRİ5700%PR(37)3İ30000%2:PRİ9500&FLAG0:$PRINT:IND/NAMEg$2:CPAGE:12:PR$"DO YOU WANT TO USE A PRINTER? ":9150:PR(IN$"Y")$WANTTRUE:5300:FLAGFALSEı$8620:8700$FI$FH$:L101:3:CPAGE:"STUDENT: ";::DN$IN$"":(DN$)05290$DN$"ALL"5275%PRİU(V2V3):#C%TURN OFF PRINTER/C&%POFF:=C0uSPACEBARC:u16368,0:24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:CLINE:C} STANDARD ERROR PROCESSINGC }ZE(222):ZN(218)(219)256C}ZE1532110D}ZUĦER? ":9150:PR(IN$"Y")B1$2:CPAGE:7:"SCORES CAN BE DISPLAYED WITH:"::5:"1. STUDENT NAMES"::5:"2. STUDENT NUMBERS":PRĺ:5:"3. BOTH"B2$FI$FA$:::CV(37)1B6$CV:CL:"WHICH DO YOU WANT? ";::V(IN$):V1V2PR9270 C;$NA(V1V3):NZY);"/";3((SZ%(ZY))));SZ%(ZY)+AZ#ZZ:OA#GET YES/NO INPUT WITH PROMPT$ wA#PR$;:CX(36)1:CY(37)1:FI$FB$A#CY:CX:CLINE::IN$(IN$,1):IN$"Y"IN$"N"9160A#A"$OUTPUT PARAMETERSB,$2:CPAGE:12:PR$"DO YOU WANT TO USE A PRINTDISPLAY SCORESi@2#:Z$"SCORE CATEGORY: "CC$(CT):5750:S(20))Z$:Z$"STUDENT: "DN$:5750:S(20))Z$@<#ZZ1B(CT):ZYA(ZZ)@F#V(ZZ):H(ZZ):2((ZZ)));ZZ;". ";:SC%(ZY)255ĺ"***/";3((SZ%(ZY))));SZ%(ZY):9050!AP#3((SC%(ZY))));SC%(ES FOR "Z$:8500:QP0:%?`"DISPCATR?j"Z0:I18:(Z19)1:ZZ:DC$(I);:Zĺ[?t"I:f?"MATCH?"Z0:I18:CA$(DC$(I),(CA$))ZI:I8?"I:?"SAVECLASSDATA?#DC%CN:R? #ZZ18:DC$(ZZ)CC$(ZZ)"":ZZ:DN$CL$(CN)"":W:5500:@(#PUTSC%>>!DN%Z:X:ZZ0NT%:ASZZ,SC%(ZZ):ZZ:DN%Z:M:E:P>!FILLCATARRAY>"ZZ08:C$(ZZ)""::ZZ050:CA%(ZZ)(ACZZ):CA%(ZZ)9C$(CA%(ZZ))C$(CA%(ZZ))(ZZ)>"ZZ:ZZ050:CA%(ZZ)8NT%ZZ:ZZ50:ZZ>"?V"QP1::Z$DN$:5750:TI$"SCOR=!LOADSZ%L=!DN%0:X:5500:ZZ050:SZ%(ZZ)(ASZZ):SZ%(ZZ)251NT%ZZx=!ZZ:NT%50āZZNT%1NT%:SZ%(ZZ)255:~=!=!LOADSC%=!DN%Z:X:ZZ0NT%:SC%(ZZ)(ASZZ):ZZ:=!PUTSZ%=!DN%0:X:ZZ0NT%:ASZZ,SZ%(ZZ):ZZ:DN%0:M:>!PR))Z$::LILI2O!Z$TI$:S(2020-------------";+:NUĺS(2))"---------";a:S(3))"------"S(4))"-----";:PRĺS(4))"------"l:PRĺx:LILI4~:: SLEAZY SORT: ZZ0255:L$(ZZ)"":SC%(ZZ)0:ZZ; ZZ1NS%:SC%(ST%(ZZ))SC%(ST%(ZZ))1:L$(ST%(ZZ))L$(ST%(ZZ))(ZZ):Z"TRANS":F9LE)"SCORE":LE)"OUT OF"S(4))ZX$;:PRĺS(4))"LETTER"Q9PRĺv9(NA)ĺS(1))"STUDENT NAME"13);9(NU)ĺS(2))"NUMBER ";9S(3)4(((NP%))))NP%" "S(4))"SCORE";:PRĺS(4))"GRADE"9PRĺ:(NA)ĺS(1))"------------$(ZX)::8620:R:DN$DN$"":ZX18:DC$(ZX)DC$(ZX)"":ZX:Z$DN$:5750:CL$(CN)Z$X8rq8FREQED/TRANS HEADER 9S(1)PR10NA(NUPR)5:S(2)NA4PRNU(NAPR)15:S(3)(13PR)(16NA):S(4)13PR:LES(1)25NAS(2)9NUS(3):ZX$" PCT ":TP3ZX$SE: 7DETERMINE GRADE NUMBERO7G57(TP1):ZZ1G:ZS%(ZZ)GZZ:ZZ13Y7ZZ:w7@ INITIALIZE CLASS ON RUN7JCN(901):CNı7TDC%CN:R:ER%İ5500:CN0:7^NS%DN%:TP(AD):TP0TP4āZX111:S%(ZX)(ADZX):ZXR8mZX18:CC$(ZX)DCQP1/6TI$"LETTER GRADE KEY":8500::LILI1V6ZZ1X:C$G1$(ZZ):X5C$G2$(ZZ)61220PR);C$;4);S%(ZZ);" - ";S%(ZZ1)1(S%(ZZ1)0):LILI1:PRĺ:LILI16ZZ:LILI1:I DONT KNOW WHY6PRİ30000:6PRİ57007::POFF:FLAGFAL(G):TP1G$G2$(G)N5S(3)4(Z$))Z$" "S(4)4(O$))O$;:PRĺS(4)3)G$a5LILI1:PRĺ5PRLI62İ5700:8500:81005PRĺ:LILI1:LI20İ30000:5L1(DN%0):L15PRİ57005PR(37)3İ30000:55LETTER GRADE KEY6IT%):8500:8100:C0:L101:X<4t(37)3PRİ8500:8100R4x(NA)ĺS(1))DN$;f4}NUĺS(2))DI$;4SC%(ASIT%):SC%255Z$"***":O$"***":G$"NA":65374TP3OSI(T(Z(SC%))):65354OSI(W(SC%))5Z$(SC%):O$(OS):ZOS:6600:G$G1$50Q8'(A$)1(A$)7Ģ21:"PLEASE ENTER A SLOT BETWEEN 1 AND 7.":20500:10020^B'SL(A$)L'1:12:CS:" DRIVE: ";:39:DR;:12::A$IN$V'A$""Ģ12:13:DR"]":A$(DR):10090`'(A$)1(A$)2Ģ21:"PLEASE ENTER EITHER 1 OR 2.":20500:100ATE{(Z$)0ıFZ10:ZY(Z$)11:(Z$,ZY,1)" "Z1ZY:ZY1^ZY:Z$(Z$,1,Z1):t'GET DRIVE INPUTS'FI$"11 $#2 1"'CS:8:32:"DEFAULTS"$'1:10:CS:" SLOT: ";:39:SL;:12::A$IN$.'A$""Ģ10:13:SL"]":A$(SL):100 ERROR PROCESSINGGER(222):LN(218)(219)256::D$"CLOSE"^ER0ER16EF0:nLZ53856ERER255ĺ:"ERROR CTRL-C HIT AT LINE #"LN"."::MZ01:PE(LZ):(PE);:MZ(PE127):LZLZ1:MZ:" ERROR AT LINE #"LN".":v *TRUNCER%4Z$"THE DATA DISKETTE IS WRITE PROTECTED."]ER%6Z$"STUDENT OR CLASS NOT FOUND."ER%8Z$"DATA DISK BAD, DRIVE OR FORMAT ERROR."ER%9Z$"THERE ARE ALREADY 15 CLASSES DEFINED."ER%DEBUGĢ20:CPAGE:Z$:20500:20:CPAGE(ZT)".";:ZV:ZH:868:37030AZN(Z$):ZFĢ24:1:958:ZF0G T$:Z$(Z$,1):Z$"Y"Z$"N"ĖZH:ZV:868:360108RRANGED NUMERIC INPUT ZB = MIN, ZT = MAX, ZC = C/R LEGAL (BOOLEAN)ZH(36)1:ZV(37)1ZL((ZT))"";Z$:(Z$)ZB(Z$)ZTĢ24:1:ZF1:"ENTER A NUMBER BETWEEN "(ZB)" AND "000NuZP160ZP14130020DXu1:868:1::ZV:ZH:16368,0:XyENDING ROUTINE"y::12:"WOULD YOU LIKE TO TRY AGAIN? ";:36000:Z$"Y"Ĭ@y::12:"GETTING THE MENU PROGRAM...":RNH,"MENU"YES-NO INPUT2ZH(36)1:ZV(37)1:"";ZS$,K,1)):PPCTK,A:A32AA64:/#(A);:B#K:Q$:CTCTLH#_0uSPACE BAR ROUTINE~5uZH(36)1:ZV(37)1:ZF0:u24:1:868:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231(S$,K,5)"CHR$("91109F#JK6L:(S$,J,1)")"9100[P#X$(S$,K5,JK5):X((X$))nZ#X0X127X0d#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#13:868:L(S$):K1L"#A((L(S$):C$:A(C$):A13Ĺ16368,0:A^(A8L0)ĺC$Q$;:8020OhA88080crA34L198020v|A32AA64:(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:NT "Q$;:80000S$""Ģ72L2:1:958::L25TS$""İ9000:CTCT1:PPCT,13L2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25522:"ARE THE ABOVE COMMANDS CORRECT? ";:36000L1(Z$"Y"):L1@STRING INPUTJS$"":16368,0%T12:"PLEASE PREPARE YOUR PRINTER...":300008H::NE1DHPACT:AZU0:ZEıG34020*G4 DATA DISKETTEG>:10:"PLEASE REMOVE YOUR PROGRAM DISKETTE AND INSERT YOUR DATA DISKETTE.":30000GHZU1:ZE0:15::ZEĺD$"VERIFY VOM.TXT"GRZU0:ZEZE9ZE0:G\34110GpPRINTER INITGzDT$""ė:8550+H:1:ZM:" ERROR AT LINE #"ZN"."RF}:"PLEASE REPORT THIS ERROR TO MECC.":30000:fFЄ DRIVE MESSAGEtFڄZ34100F䄗:10:"PLEASE REMOVE YOUR DATA DISKETTE AND INSERT YOUR PROGRAM DISKETTE.":30000F15::ZU1:ZE0:ZEĺD$"VERIFY COM.TXT" G0:31000?EZ}ZE9ĺ"THIS DATA DISKETTE IS FULL.":30000:31000pEd}"DOS ERROR NUMBER "ZE"AT LINE "ZN".":32150En} PROCESS BASIC ERROREx}ZL53856ZEE}ZE255ĺ:"ERROR CTRL-C HIT AT LINE #"ZN".":F}:ZM01:ZP(ZL):(ZP);:ZM(ZP127):ZLZLD(} USERS ENTRY POINT#D2}:12oD<}ZE2ZE3ZE7ĺ"PLEASE CHECK YOUR DISKETTE PARAMETERS.":30000:31000DF}ZE4ĺ"PLEASE REMOVE THE WRITE-PROTECT STICKER FROM YOUR DISKETTE.":30000:31000EP}ZE8ĺ"DATA DISK BAD - DRIVE OR FORMAT ERROR.":3000z#????    ҠӮΠ Ġ!ŠӠ"ͮԠϠ  Ϡ ӠBҠԠŠԠԮʠ̮ʠͮʠ ̮ʠ ŠҠՠŠJԠEӠ'Ġ$͠ĠŠERh0/3:"IF YOU HAVE ANY PROBLEMS USING MECC"::"COURSEWARE WITH YOUR COMPUTER,"::"WRITE OR CALL:":/32,7:::"MECC HELP LINE":"3490 LEXINGTON AVENUE NORTH":"ST. PAUL, MN 55112":"(612) 638-0638"D/:30000:N/2DECIDE UPON SCREEN FOBLE FROM MECC."<.9:" TITLE: ";DN$:D2$""Ė13:D2$`/12:" DIRECT INQUIRIES TO:"/:13:"MECC DISTRIBUTION CENTER":13:"3490 LEXINGTON AVENUE NORTH":13:"ST. PAUL, MN 55112":13:"(612) 638-0627"/30000:&/HELP LINE & DISCLAIMZ3)""::XP1:22:BL$:ER1:k,20:"ILLEGAL PASSWORD. PROGRAM TERMINATED.":214,128:958:30000:14000.SUPPORT BOOK INFO.IP$"":IN1IP$"INSTRUCTIONAL ".4:17(IP$""):"A MANUAL TO AID IN THE "IP$"USE":6:"OF THIS DISKETTE IS AVAILA1:"#":Z$(XP1)"":XPXP1:11230D+XP1:Z$(XP)"":22:958:BL$J+]+ * READ FILE +D$"BLOAD PASSWORD,A760":Z317:P2$P2$((759Z3)2)::+ * ERR ,ER0Ģ23:1:"INVALID PASSWORD -- TRY AGAIN.":Z311000::23:868:Z317:Z$(WPW [+20:"ENTER YOUR NEW PASSWORD:":FROM1:11060:FROM0:Z317:Z$(Z3)""Z$(Z3)" "+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Ģ22:XP2İ11160:L11:Z141:111203\+Z136İ11200:11120if+Z192Z218Z$(XP)(Z128):22:XP:"*":XPXP1p+Z1(Z141)(XP7):Z1:P1$"":Z117:Z$(Z1)""Z$(Z1)" "z+P1$P1$Z$(Z1)::+ * LISTPW +23:P2$:Z311000::23:958:+ * NE"#######"D+11240:20:958:"ENTER YOUR PASSWORD:":L101:L11e +11060:P1$P2$İ11260:L10*+L1:20:958:214,0:4+ * INPUT >+XA16384:XP1:22:BL$:Z101:XA16,0:XA,128:Z(XA):XP1FROM11100H+Z140İ11140:11120R+Z14)16:T(953)10050:.'(953)(956)Ĺ953,T:956,T:FL1J8'953,T:FL1rB'T(P(P(999))14):T(955)10080L'(955)(958)Ĺ955,T:958,T:FL1V'955,T:FL1`'FL1ĺD$"BSAVEDRIVE OPTIONS,A953,L6"j'* GET PASSWORD+214,128  +BL$1PDİ150001 ANZ$CN$(A):Z1$MN$(A):4000O ANANPDZ1$Z$:4000U jRUN THE PROGRAM(902)1İ11000:902,1:12:"GETTING "Z1$"...":RNH,Z$'HANDLE DRIVE INITIALIZATION'D$"BLOADDRIVE OPTIONS"$'T(P(P(999))17PD:VV22VV22_ IN11:VV:6F35:"WHICH NUMBER? ";:868:ZB1:ZTN2PD:37000:A$Z$ CAA$(1)ĺD$"RUNTEACHER OPTIONS" A((A$)) IN:PRAN1(HOA$(16))Z$X1$ DRAN1PR(HOA$(4))Z$X2$ AN2PDİ14000  ANDISKETTE SUPPORT":N1PR". DISKETTE SUPPORT"l C(64435)6Ģ24:" MAKE SURE YOUR CAPS LOCK KEY IS DOWN."; HVV2PD:9(N9PD):N1PD". GENERAL INFORMATION" RVV3PD:9(N8PD):N2PD". END" \ RESPOND TO USER'S CHOICE  VVVVF5:HH9F383 I1N:VV:HH(I10):I". "MN$(I)V VVVV1:F3IC2VV7F5:HH21n I:VVVV2F2F3F6 *VV:6F35:"OTHER OPTIONS:" 4PRHOĢVV2:9(N9):X1$"PRINTER SUPPORT":N1". PRINTER SUPPORT"- >DRHOĢVV2PR:9(N9PR):X2$"1 jL1N:MN$(L),CN$(L):L11DL:DS$(L,L1)::< t13000T BE A HELLO PROGRAMj 2000:3000:1210| DISPLAY MENU : Z$DN$:S(20))Z$ D2$""Z$D2$:S(20))D2$ Z$DV$:S(20))Z$ 5F5:6F35:"PROGRAM"SP$":" VV7PTION,DR=DISKETTE SUPPORT,PR=PRINTER SUPPORT,IN=INSTRUCTIONAL,HO=HIDDEN OPTIONS,DI=DISCLAIMER D$(4):P(S)(S)(S1)256:S(S)S((Z$)2) DRİ10000 LREAD IN DESCRIPTIONS AND FORMAT SCREEN VDN$,D2$,DV$,N `MN$(N),CN$(N),DS$(N,DL) PROGRAM:TEXT MENU 0.1;PROGRAMMER:SHANE MCCARRONUCOPYRIGHT:MECC, 1983s(LAST UPDATE:83/12/08 RPB2TEXT VERSIONINITIALIZATION3900026112:DL4:CA0:DR1:PR1:IN0:HO0:DI0] DL=DESCRIPTION LINES,CA=TEACHER O          ? ":9150:IN$"N"3610$3500:8660:DN%0:X:L101:ZDN%:X:L201:10:CLINE:DN$;:30:FI$FJ$::SC%(IN$):L2(SC%0SC%SZ%(IT%)):L2.ASIT%,SC%:ASIT%10,(SC%255):DN%Z:M:X:L1(DN%0):L1:ACIT%,CA:8950:E:tENTER SEM/FIN-INDIVZ$::OP2Ė31:"NEW":3520! ^ " NAME";:30:"SCORE":"--------";:28:"--------"::wENTER SEM/FIN-CLASSFI$FC$L101:3:CPAGE:"TOTAL POSSIBLE SCORE? ";::Z(IN$):SZ%(IT%)Z:L1(Z0Z251):L112:PR$"IS THIS TOTAL CORRECT2:CPAGE:::Z$CL$(CN):S(20))Z$:9300:CA10S3:IT%552(S2) :Z$O$(0,3):S(20))Z$:E$"SEMESTER "(S):Z4:Y2:8900:OP3600,3700,3800:OP43020 FLAGFALSE: ENTER *HEAD* 2:CPAGE:Z$CL$(CN):S(20))Z$:Z$E$" EXAM":S(20))"ONE MOMENT PLEASE..."uZZACAC49:ZZ,255::ZZ0NS%:DN%ZZ:X:ZYASAS49:ZY,255:ZY:DN%ZZ:M:ZZ:8950:E 21:"SCORES FOR "CL$(CN):"HAVE BEEN DELETED."30000FLAGFALSE: ENTER SEM EXAM WANTTRUE:5300:FLAGFALSEıC ED."[:"YOU MAY WISH TO MAKE A PRINTED COPY":"OF THE SCORES BEFORE THEY ARE DELETED.":"QUARTER GRADES MUST BE COMPUTED":"BEFORE THE SCORES ARE DELETED."19:PR$"DO YOU WANT TO DELETE SCORES NOW? ":9150:IN$"Y"20702:CPAGE:12:00:2:CPAGE:10:"QUARTER #"Q" CALCULATIONS COMPLETE.":30000:FLAGFALSE:`DELETE Q GRADESWANTTRUE:5300:FLAGFALSEı3:CPAGE:"THIS OPTION DELETES THE SCORES FOR THE":"CURRENT QUARTER, SO THAT THE NEXT":"QUARTER'S SCORES CAN BE RECORD:12:"GETTING THE MENU PROGRAM..."E 901,CN:SET,1::RNH,"MENU"KaCOMPUTE Q GRADESWANTTRUE:5300:FLAGFALSEı3:CPAGE:5:"CLASS NAME: "CL$(CN)9200:9400:8700:5800CT10Q(Q2):IT%50Q:B1:E83:CPAGEK$90ASS DATAMAIN LOOP2:L101::FLAGFALSEVZ$"COMPUTE GRADES":S(20):Z$hZ7:Y0:8900|OP7FLAGTRUE:OP7260Z$O$(0,OP):S(20):Z$:OP1000,2000,3000,4000,4500,5000L1(FLAGTRUE):L1:CS%SL%DR%1Z1:34000$0:LINE0:FLAGFALSEnDC%0:ER%0:DN%0:DN$"":DI$"":SL%(956):DR%(957):CS%(953):CS%SL%DR%1İ34000ZZ112:G1$(ZZ):ZZ:Z11:ZZ1103:G2$(Z1)G1$(ZZ):Z1Z11:ZZ:G2$(5)"F ":A ,A-,B+,B ,B-,C+,C ,C-,D+,D ,D-,"F "8000:INITIALIZE CL" WHICH NUMBER? ":SC$"SCORE CATEGORY: ":C5 ZM$"ENTER A WEIGHT FOR EACH ITEM. TO WEIGHTALL ITEMS EQUALLY, USE 1. TO IGNORE AN ITEM, USE 0."AC34945:AD35026:AS35120:AL35328:IT%1:SC%255:NS%0:PR0:DA$"**/**/**":SD0:ME0:TY0:CN0:PG"PRINT EXAM SCORES"0 O$(2,4)"RETURN TO MENU" FA$"11 $$2 1":FB$"11 &$1 1":FC$"11 &$2 1":FD$"13 <#3'Z1":FE$"13 ,#4-:1":FF$"13 -#1 1":FG$"11 %#2 1":FH$"13 <#1 1":FJ$"11  1":IN$""1 TRUE1:FALSE0:CPAGE958:CLINE868:W$ SCORES","COMPUTE FINAL GRADES","RETURN TO MAIN MENU" O$(1,1)"QUARTER GRADES":O$(1,2)"SEMESTER GRADES":O$(1,3)"SEMESTER TEST SCORES":O$(1,4)"FINAL GRADE":O$(1,5)"RETURN":O$(2,1)"ENTER SCORES FOR ENTIRE CLASS":O$(2,2)"EDIT AN EXAM SCORE":O$(2,3)W(I)(INP%)100:A(I)((C$(I),IT,1)):B(I)(C$(I)):F(I)(SC%S%(I1)SC%S%(I))o ~SP(I)I((Z))5 ZX17:O$(0,ZX):ZX:"COMPUTE QUARTER GRADES","DELETE CURRENT QUARTER SCORES","SEMESTER EXAM SCORES","COMPUTE SEMESTER GRADES","FINAL EXAM,SD(50),ME(50),L$(255),CS(20),AV(20)` sD$(4)::CT0:QU$(34):DR$(0)"PROGRAM":DR$(1)"DATA" xS(I)I((Z$)2):P(I)(I)(I1)256:I(I)(I10C.5)10C:Z(I)(IME)SDY }T(I)I1050:X(I)((I100)NP%):Y(I)(((I50)10)SDME):H PROGRAM:COMPUTE1AUTHOR:SHANE MCCARRONKCOPYRIGHT:MECC, 1983i(LAST UPDATE:83/12/05 SPM}dINITIALIZATIONi32000$ nST%(255),SC%(255),SZ%(80),CA%(60),S%(12),D%(12),CL$(15),G1$(12),G2$(5),DC$(8),CC$(8),C$(20),O$(2,7),W1(20),W2(61)                     ,3500 95003 L1(FLAGTRUE):L1:FLAGFALSE:> FINAL0 4440:Z$"FINAL GRADES":Q$Z$:IT%60:4000:NC1:C(1)60:FDİ7000:  FINAL&Q1234 4440:Q1:Q$"FINAL GRADES AND QT. 1,2,3 AND 4":C(1)51:C(2)52:C(3)53:C(4)54:C(5)60:NC5:41Q$:C(1)53:C(2)54:C(3)57:C(4)58:NC4:4100:IT%58:FDİ7000EF [ PRINT FIN GRADES} WANTTRUE:5300:FLAGFALSEı L101::Z$O$(1,3):S(20):Z$ Z6:Y3:8900:OP6FLAGTRUE:3040 :Z$O$(3,OP):S(20):Z$:OP3100,3200,3300,3400:Z$Q$:IT%58:4000:NC1:C(1)IT%:FDİ70001~ A SEM.2&QT34 S2:4440:Q3:Q$"SEMESTER 2 WITH QT. 3 & 4":Z$Q$:C(1)53:C(2)54:C(3)58:NC3:4100:IT%58:FDİ7000 ( SEM.2&EX&QT34?< S2:4440:Q3:Q$"SEMESTER 2 WITH EXAM AND QT. 3&4":Z$":Z$Q$:C(1)51:C(2)52:C(3)56:NC3:4100:IT%56:FDİ7000ATSEM.1&EX&QT12 S1:4440:Q1:Q$"SEMESTER 1 WITH EXAM AND QT. 1&2":Z$Q$:C(1)51:C(2)52:C(3)55:C(4)56:NC4:4100:IT%56:FDİ7000 ` SEM.2+t 4440:Q$"SEMESTER 2 GRADES"$(2,OP):S(20):Z$:OP2100,2200,2300,2400,2500,2600?9500cL1(FLAGTRUE):L1:FLAGFALSE:n4SEM.1H4440:Q$"SEMESTER 1 GRADES":Z$Q$:IT%56:4000:NC1:C(1)IT%:FDİ7000RSEM.1&QT12;S1:4440:Q1:Q$"SEMESTER 1 WITH QT. 1 & 2:R9200:4440:Q$"QUARTER "(Q)" GRADES":Z$Q$:IT%50Q:NC1:C(NC)IT%:4000`FDİ7000j9500pPRINT SEM GRADESWANTTRUE:5300:FLAGFALSEıL101::Z$O$(1,2):S(20):Z$Z7:Y2:8900:OP7FLAGTRUE:20405:Z$OOPZFLAGTRUE,OP1000,2000,3000,10000]L1(FLAGTRUE):L1:CS%SL%DR%1Z1:34000:12:"GETTING THE MENU PROGRAM..." 901,CN:SET,1::RNH,"MENU"PRINT Q GRADESWANTTRUE:5300:FLAGFALSEı:Z$O$(1,1):S(20):Z$953):CS%SL%DR%1İ34000ZZ112:G1$(ZZ):ZZ:Z11:ZZ1103:G2$(Z1)G1$(ZZ):Z1Z11:ZZ:G2$(5)"F ":A ,A-,B+,B ,B-,C+,C ,C-,D+,D ,D-,"F "8000MAIN LOOP:L101::FLAGFALSEZ$"PRINT GRADES":S(20):Z$Z5:Y1:8900 WHICH NUMBER? ":SC$"SCORE CATEGORY: ":C2AC34945:AD35026:AS35120:AL35328:IT%1:SC%255:NS%0:NT%0:PR0:SD0:ME0:TY0:CN0:PG0:LINE0:FLAGFALSE:DA$"-------------------------"DC%0:ER%0:DN%0:DN$"":DI$"":SL%(956):DR%(957):CS%(M ","SEM 2","EXAM ","FINAL" FA$"11 $$2 1":FB$"11 &$1 1":FC$"11 &$2 1":FD$"13 <#3'Z1":FE$"13 ,#4-:1":FF$"13 -#1 1":FG$"11 %#2 1":FH$"13 <#1 1":FJ$"11  1":IN$"":FK$"11 q#4 ^1"-TRUE1:FALSE0:CPAGE958:CLINE868:W$" SEM 1,2 & EXAM","RETURN TO MENU" 6,"INDIVIDUAL STUDENT(S)","STUDENTS WITH MISSING SCORES","STUDENTS WITH LOW SCORES","ENTIRE CLASS","VIEW OR CHANGE COMMENTS","RETURN TO MENU" I110:HD$(I)::"QT. 1","QT. 2","QT. 3","QT. 4","EXAM ","SEM 1","EXA WITH QT. 1&2,SEMESTER 1 WITH EXAM & QT. 1&2,SEMESTER 2,SEMESTER 2 WITH QT. 3&4,SEMESTER 2 WITH EXAM & QT. 3&4,RETURN TO MENU! 6,"FINAL GRADES","FINAL GRADES W QT 1,2,3 & 4","FINAL GRADES W QT 1,2,3,4 & EXAM","FINAL GRADES W SEM 1 & 2","FINAL GRADES WI)(C$(I)):F(I)(SC%S%(I1)SC%S%(I))A ~SP(I)I((Z)) ZX14:ZZ:ZY1ZZ:O$(ZX,ZY):ZY:ZX:5,"PRINT QUARTER GRADES","PRINT SEMESTER GRADES","PRINT FINAL GRADES","PRINT PROGRESS REPORTS","RETURN TO MAIN MENU"} 7,SEMESTER 1,SEMESTER 1sD$(4):QU$(34):DR$(0)"PROGRAM":DR$(1)"DATA" xS(I)I((Z$)2):P(I)(I)(I1)256:I(I)(I10C.5)10C:Z(I)(IME)SD+ }T(I)I1050:X(I)((I100)NP%):Y(I)(((I50)10)SDME):W(I)(INP%)100:A(I)((C$(I),IT,1)):B(C PROGRAM:PRINT3PROGRAMMER:SHANE MCCARRONMCOPYRIGHT:MECC, 1983k(LAST UPDATE:83/12/06 SPMdINITIALIZATIONi32000nST%(255),SC%(255),SZ%(80),CA%(80),S%(12),D%(12),CL$(15),G1$(12),G2$(5),C$(20),L$(255),DC$(8),O$(4,7),HD$(10)2                            IN$""NA$Z$L "STUDENT NUMBER:";:FI$FE$::NU$IN$"":(NU$)0NU$DI$ 8640:DN%Z:T:DN$NA$:DI$NU$:A:N:ZDN%:8695:E L1(FLAGTRUE):35,19:L1:35,24:FLAGFALSE:DELETE STUDENTSWANTTRUE:FLAGFALSE:5300:FLAGFALSE40507":30000:F L101:3:CPAGE:S$"MODIFIED? ";:FI$FD$::DN$IN$""d (DN$)0FLAGTRUE:3060 Y$"MODIFY":5800:CHECKFALSE3060 16:Z9$:35,15:3:CPAGE:"STUDENT: "DN$:"NUMBER: "DI$:6  "ENTER NEW DATA:":8:ST$;:FI$FD$::NA$IN$:FLAGTRUENS%250):L11*E:35,24:FLAGFALSE:F MODIFY STUDENTS| :CPAGE:WANTTRUE:FLAGFALSE:5300:FLAGFALSEı ZZ$"MODIFY":3:CPAGE:20:Z8$"MODIFYING,":Z7$:35,19  FLAGFALSE:NS%0Ģ16:CPAGE:"THERE ARE NO STUDENTS IN THIS CLASS.1:1:"STUDENT NAME:";:FI$FD$::SN$IN$""I(SN$)0FLAGTRUE:2070FIXFALSE:13:"STUDENT NUMBER:";:FI$FE$::SI$IN$"":(SI$)0SI$((AC61)) FLAGFALSEDN$SN$:DI$SI$:A:5500:ER%NS%DN%:DN$CL$(DC%):AC61,(AC61)1:WL1(T0:FL0 ADD STUDENTSLFROMWANTTRUE:5300:3:CPAGE:FLıx3:CPAGE:18:Z9$::Z8$"ADDING,":Z7$FLAGFALSE:L101:5:"THE NUMBER OF STUDENTS CURRENTLY ON":CLINE:"THIS LIST IS "NS%"."13:CLINE:"STUDENT NUMBER:"+1DC%)DN$-~CRFALSE:NS%0:DN%0:WANTTRUE:>DELETE FILEh5:CPAGE:WANTTRUE:5300:FLAG12402:CPAGE:4:"CLASS: "CL$(CN):::"ARE YOU SURE YOU WANT TO":PR$"DELETE THIS CLASS? ":9150:IN$"N"FLAG0:DC%CN:D:E:CL$(CN)"":CN0:CAXIMUM NUMBER OF":"STUDENTS IN THIS CLASS? ";:FI$FC$::DN%(IN$):L1(DN%0DN%251)eL1Ģ20:"THE NUMBER MUST BE LESS THAN 250.":30000:20:CPAGEjL1:FROMTRUE:FLAGTRUEtCR1:C:5500:CR0:ER%FROMFALSEyR:DN$DN$"":AC61,1:W:CL$(S(20):Z$:OP1100,1200.L1(FLAGTRUE):L1N$FROMTRUEWANTFALSE:2000j.FROMFALSE:FLAGFALSE:vLCREATEV5:WANTFALSE:5300:FLAGFALSEıW3:CPAGE::"CLASS: "DN$[I18:DC$(I)" ":I:CRTRUEV`L101:9:"WHAT WILL BE THE M901,CN:SET,1::RNH,"MENU"!"4CREATE/DELETEzL101:Z$O1$(1)::S(20):Z$:5:I13:5);I;". ";O2$(I)::IFROMFALSEFI$FA$:L201:I25:W$;::OP(IN$):L2(OP0OP4):L2FLAGFALSE:OP3FLAGTRUE:OP0:Z$O2$(OP):1:I25:" WHICH NUMBER? ";::OP(IN$):L2(OP0OP7):L2^ FLAG(OP6):OP1OP4260{ :Z$O1$(OP):S(20):Z$ OP1000,2000,3000,4000,5000 L1(FLAGTRUE):L1 CS%SL%DR%1Z1:34000 :12:"GETTING THE MENU PROGRAM..."DENT NUMBER.":Z8$"WHEN FINISHED ":Z7$"PRESS RETURN FOR THE STUDENT NAME." S$"WHICH STUDENT NAME OR NUMBER IS TO BE " 8000 MAIN LOOP :L101: Z$"CLASSLIST":S(20):Z$ 5:I16:5);I;". ";O1$(I)::? FI$FA$:L201"P IN$"":W$" WHICH NUMBER? ":ST$"STUDENT NAME:":SN$"STUDENT NUMBER:" AC34945:AD35026:AS35120:AL35328:SZ%(50),SC%(255),S%(12) DEBUGĥ5970K Z9$"IF YOU WANT THE STUDENT NUMBERS ASSIGNEDAUTOMATICALLY, PRESS RETURN FOR THE STUO2$(2)"DELETE A CLASS":O1$(6)"RETURN TO MAIN MENU":O2$(3)"RETURN TO MENU" O3$(1)"PRINT NAMES AND STUDENT NUMBERS":O3$(2)"PRINT BLANK SCORE SHEETS":O3$(3)O2$(3) FA$"11 $$2 1":FB$"11 &$1 1":FC$"11 &$2 1":FD$"13 <#3'Z1":FE$"13 ,#4-:N$"":DI$""n xDR$(0)"PROGRAM":DR$(1)"DATA":D$(4):SL%(956):DR%(957):CS%(953):CS%SL%DR%1İ34000 I15:O1$(I)::CREATE OR DELETE CLASSLIST,ADD STUDENTS,MODIFY STUDENT DATA,DELETE STUDENT,PRINT CLASSLISTL O2$(1)"CREATE A NEW CLASS":% PROGRAM:CLASS/AUTHOR:SHANE MCCARRONICOPYRIGHT:MECC, 1983g(LAST UPDATE:83/12/06 SPM{dINITIALIZATIONi32000 nYES1:TRUE1:P(I)(I)(I1)256:S(I)I((Z$)2.5):CPAGE958:CLINE868:CL$(15),DC$(8):DN%1:DC%1:ER%0:D                      2140/R:Z$O4$(OP):S(20):Z$:OP2300,2400S\L1(FLAGTRUE):L1:FLAGFALSE:^CURVEOPFALSE:WANTTRUE:5300:FLAGFALSEıH3:CPAGE:::"TRANSFORMED SCORES ARE USED IN GRADING":"ON A CURVE. TRANSFORMED SCORES ASSUME":"THE DISTRIBUTIOL1(FLAGTRUE):L1:FLAGFALSE:/4PERCENT\9WANTTRUE:FLAGFALSE:5300:FLAGFALSEı>L101::Z$O3$(1)::S(20):Z$:3:CPAGE:::I13:4);I". ";O4$(I)::IHFI$FA$:L201:I25:W$;::OP(IN$):L2(OP0OP4):L2:FLAG(OP3):FLAG:ASSIGNMENTmFLAGFALSE:L101:Z$O1$(2)::S(20):Z$:3:CPAGE:::I13:5);I". ";O3$(I)::IFI$FA$:L201:I25:W$;::OP(IN$):L2(OP0OP4):L2FLAG(OP3):OP2035,2030,2040:Z$O3$(OP):S(20):Z$OP2100,2200"AGTRUE:1290$ERRTRUE:I811K(C$(I),(IN$))IN$ERRFALSE:JIRIERRĢ20:"THAT CATEGORY DOESN'T EXIST.":30000ERRĢ18:"ENTER NEW NAME: ";::C$(J)" """:(IN$)0C$(J)IN$"" L1(FLAGTRUE):L1:FLAGFALSE:8300ODCAT;NUMFALSE:FLAGFALSE:WANTTRUE:5300:THFLAGı3:CPAGE:::"THE SCORE CATEGORIES CURRENTLY USED FOR":"THIS CLASS ARE:":FLAGFALSE:L101:8:CPAGE:820016:CPAGE:"CURRENT SCORE CATEGORY NAME? ";:FI$FF$: (IN$)0FL(IN$)FALSEFLAGTRUE:1195XNUMFALSE:ERRFALSE:I811:C$(I)" "NUMIzIN$(C$(I),(IN$))ERRTRUEI:ERRĢ20:"THAT CATEGORY ALREADY EXISTS.":30000:1195C$(NUM)IN$""L1(FLAGTRUE):L1:8300FLAGFALSE:M101:I18:C$(I)" "NUMNUM1~e:3:CPAGE:::"THE SCORE CATEGORIES CURRENTLY USED FOR":"THIS CLASS ARE:":j8200tNUMFALSEĢ20:"ONLY 8 CATEGORIES CAN BE USED.":30000:FLAGTRUE:1195~FI$FF$:17:"NEW CATEGORY NAME: ";::)::I\FI$FA$:L201:I25:W$;::OP(IN$):L2(OP0OP4):L2:FLAG(OP3):FLAG1040:Z$O2$(OP):S(20):Z$:OP1100,1200L1(FLAGTRUE):L1:FLAGFALSE:LADDCATVNUM0:FLAGFALSE:WANTTRUE:5300:THFLAGFALSEı*`FLAGFALSE:LLAG(OP3):OP1000,2000/L1(FLAGTRUE):L1M CS%SL%DR%1Z1:34000v :12:"GETTING THE MENU PROGRAM..." 901,CN:SET,1:RNH,"MENU"CATEGORIESFLAGFALSE:L101:Z$O1$(1)::S(20):Z$:3:CPAGE:::I13:5);I". ";O2$(I,B,B-,C+,C,C-,D+,D,D-,F:J1:I1103:G$(J,2)G$(I,1):JJ1:I:G$(5,2)"F"T 8000c MAIN LOOPs :L101: Z$"GRADING METHOD":S(20):Z$ 5:I13:5);I". ";O1$(I):: FI$FA$:L201:I25:W$;::OP(IN$):L2(OP0OP4):L2F&$1 1":FC$"11 &$2 1":FD$"13 <#3'Z1":FE$"13 ,#4-:1":FF$"13 -#1 1":FG$"11 %#2 1" I112:D%(I,0)::96,90,87,83,80,77,73,70,67,63,60,00:I15:D%(I,1):I:90,80,70,60,0 I15:D%(I,2)::65,55,45,35,0J I112:G$(I,1):I:A,A-,B+GE (A, B, C, D, F)":BL$" ":O4$(3)O2$(3) W$" WHICH NUMBER? ":SC$"SCORE CATEGORY NAME: ":IN$"":Z9$"PRESS RETURN TO MOVE THE CURSOR DOWN THE LIST.":Z8$"DO YOU WANT TO CHANGE ANY OF THESE LIMITS? "\ FA$"11 $$2 1":FB$"11 NT":O1$(3)"RETURN TO MAIN MENU":O2$(1)"ADD A SCORE CATEGORY":O2$(2)"MODIFY A SCORE CATEGORY" O2$(3)"RETURN TO MENU":O3$(1)"PERCENTAGE GRADING":O3$(2)"CURVE GRADING":O3$(3)O2$(3)2 O4$(1)"A 12 POINT RANGE (A, A-, B+,...)":O4$(2)"A 5 POINT RAN(34):AD35026Y sP(I)(I)(I1)256:SP(S)S((Z)):DR$(0)"PROGRAM":DR$(1)"DATA" xDC$(8):DN%1:DC%1:ER%0:DN$"":DI$"":D$(4):SL%(956):DR%(957):CS%(953):CS%SL%DR%1İ34000_ O1$(1)"SCORE CATEGORIES":O1$(2)"LETTER GRADE ASSIGNME  PROGRAM:METHOD3AUTHOR:SHANE P. MCCARRONMCOPYRIGHT:MECC, 1983k(LAST UPDATE:83/12/05 SPMdINITIALIZATIONi32000 nC$(8),CL$(15),SC%(12),D%(12,2),G$(12,2):YES1:TRUE1:S(I)I((Z$)2):CPAGE958:CLINE868:SC%(0)101:QU$                  3CCnJ*NAsB3BACFJUOAsfoCfAC{9{{ J*BBCf|C8W0W8JUBBl~VFFC {{ J*BCCAC~}~}~JUO@@`dGsBC3ACBwJUNG_ DydGsB>B3>0CFB;FJ*NG_~||hGsICa]a}}JUNGAGsB>B>C.5B;J*NGAGsBB3Cwx{JUNGAGsBC3ACBnJ*NGAGsB>0CtwutJUNGAGsBBFA@D`A@H?BBOB`OCFJUNG_&DfdGOFx~J~xHBBGBlgCFJ*NG_x0C3sdGOH@NHxBBM_ZXX@@CFJUNG_BdGsBOBYCFJ*NG_ssbGsBYBCFJUNG_99x|bGs37C3ACFJ*NG_`@yBMyCFJ*NG_`@O@@`dGO~x`FGA>B~BB|BMLCFJUNGAGQF@``DpA`@HBBxBMyCFJ*NG\OFOdGOG|L|HB D ACFJUNG\gc`ddDgdGOD@CBGB <~~BB|Bf|CFJ*NG_BsdGOE@`ppG`@GBL ^CLACFJUNG\By9B9dGOGCGA~HBNGAGJp`@UCUBUBUUUBUABUCUB00yB31CFJUNGAGN~C*B*B* FBC BB|Bf|CFJ*NGAGOCUBWBICFJUNGAGOCC@D`DpD8DBBB8:"THIS DISKETTE IS CURRENTLY SET TO THE"::"DEFAULT SETTING, WHICH IS TO SEARCH"::"SLOTS 1 AND 2 FOR A RECOGNIZABLE CARD"::"EACH TIME THE DISKETTE IS STARTED UP." H30000: COMM CARD@ 6:"THIS DISKETTE IS CURRENTLY SET UP TO":" 4. TEST PRINTER SETTINGS":? $" 5. RETURN TO MAIN MENU"r .::"WHAT IS YOUR CHOICE? ";:ZB1:ZT5:37000 8:ZN2000,5000,3000,4000,31040 BL00:L0 CHECK CURRENT SETTINGS JP1((PP)0)((PP)127) JP2100,2200,2300: 4DEF$(34), ::13:"PRINTER SUPPORT":34,26 MENUT L011:::"YOU MAY:": " 1. CHECK CURRENT PRINTER SETTINGS": " 2. CHANGE PRINTER SETTINGS": " 3. RETURN PRINTER SETTINGS TO THEIR":" ORIGINAL STATE (SLOT SEARCH)": I PROGRAM: PRINTER SUPPORT<PROGRAMMER: P. BOUCHARDYCOPYRIGHT (C) MECC 1983x(LAST UPDATE: 83/09/10 SPM2TEXT VERSIONdINITIALIZATIONnAPL0:SET TO 1 TO ALLOW USER TO ADJUST PAPER LENGTHxD$(4): PP(948)(949)256:Q       F10:3::ZZ115:DC%ZZ:R:ER%FLAG1V'ER%ER%6İ5500:FL1:F11:ZZ15:5430,Z$DN$"":5750:CL$(ZZ)Z$::NC0:ZZ115:(CL$(ZZ))0ĭ((CL$(ZZ),1))0ĺCL$(ZZ):NCZZ6:|*GFM ERRORSER%1Z$"THAT STUDENT ALREADY EXISTS."12V1V2Ģ21:CS:"THIS DISKETTE REQUIRES TWO DRIVES.":"PLEASE RE-ENTER YOUR OPTIONS.":20500:4710m4020LIST OF CLASSES:10:"VIEW LIST OF CLASSES"SADL1İ61040:DL25400:20500::SADL2İ61020:DL1E:100*FIND*"20500:1002\SET DRIVES FOR DATA DISKETTE COPYnf4:CS:6:"ORIGINAL DISKETTE":VOV1:SLS1:DRD1:10000yk20500pV1VO:S1SL:D1DR:VOV2:SLS2:DRD2:6:1:CS:"DESTINATION DISKETTE":10000q20500uD2DR:S2SL:V2VOczSD0S1S2D1D158192:@216,0:4500-hERROR ON READer20:CS:"ERROR ON ORIGINAL DISKETTE.":20500:4500| FORMATTING ERROR216,0:20:CS:"UNABLE TO WRITE ON DESTINATION DISKETTE.":20500:4500 2:CS:12:"PLEASE INSERT YOUR PROGRAM DISKETTE.":0:4090720:CS:10:"INSERT YOUR DISKETTES":20500U1:20:CS:16:"COPYING"`4300wSET,S2,D2,V2:FMTTK3005:4200SAMEİ60020"SET,S1,D1,V1:DR,TK,0TK4,158192:4300,SAMEİ60030 6SET,S2,D2,V2:DW,TK,0TK4,A DISKETTE:":15:" SLOT: ";S2:" DRIVE: ";D2:" VOLUME: ";V2FI$"11  1":20:CS:"ARE THESE CORRECT? ";::A$(IN$,1):A$"Y"A$""A$"N"4060A$""100A$"N"4700V1V2D1D2S1S2SAME1:4076SA0SAMEİ6003 DATA DISKETTE"*:SADL2İ61020:DL13FL0sS2(956):D2(957):V2(958):S1(953):D1(954):V1(955):11:"COPY DATA DISKETTE"5:"ORIGINAL DATA DISKETTE:":7:" SLOT: ";S1:" DRIVE: ";D1:" VOLUME: ";V1C13:"BACKUP DAT1":15:1:CS:"DO YOU WANT TO INITIALIZE THIS? ";::A$(IN$,1):A$"Y"A$"N"3040f A$"N"100 12:CS:"INSERT YOUR BLANK DISKETTE.":20500:2:CS:12:10:"INITIALIZING DISKETTE":DL2 DC%1:Z:100COPY DATA DISKETTE:11:"COPY"2010/\A$"Y"Ĺ956,SL:957,DR:958,VO:1009f2010W INITIALIZE DATA DISKETTE| :8:"INITIALIZE DATA DISKETTE" SL(956):DR(957):VO(958) 5:"DATA DISKETTE:":7:" SLOT: ";SL:" DRIVE: ";DR:" VOLUME: ";VOV FI$"11 &$1 6:"DATA DISKETTE:"! 10000 SSD0SL(953)DR(954)VO(955)Ģ21:CS:"THIS DISKETTE REQUIRES TWO DRIVES.":"PLEASE RE-ENTER YOUR OPTIONS.":20500:2030WFI$"11 &$1 1":21:CS:"ARE THESE ENTRIES CORRECT? ";::A$(IN$,1):A$"Y"A$"N ";(953):" DRIVE: ";(954):" VOLUME: ";(955) 13:"DATA DISKETTE:"::" SLOT: ";(956):" DRIVE: ";(957):" VOLUME: ";(958) 20500:100 SET DRIVE PARAMETERS SL(956):DR(957):VO(958) :10:"SET DRIVE PARAMETERS" 12:"GETTING THE MENU PROGRAM...":D$"BSAVEDRIVE OPTIONS,A953,L6,S"(953)",D"(954)",V"(955)::"BRUNGMUTIL.OBJ":RNH,"MENU" d62000:55 VIEW CURRENT DRIVE PARAMETERS4 :5:"VIEW CURRENT DRIVE PARAMETERS":5:"PROGRAM DISKETTE:"::" SLOT: EW LIST OF CLASSES"::6:"6. RETURN TO MAIN MENU" FFI$"11 $#2 1":1:18:CL:" WHICH NUMBER? ";::A$IN$:(A$)1(A$)6Ģ21:" PLEASE ENTER A NUMBER FROM 1 TO 6":70 PJP(A$):JP1000,2000,3000,4000,5000 Q USADL2İ61020:DL1 Z4):CL868:CS958C 3:D$"BRUNDUTIL.OBJ":DISCONNECT GMUTIL.OBJ 7::12:"DISKETTE SUPPORT":5:6:"1. VIEW CURRENT DRIVE PARAMETERS"2 <:6:"2. SET DRIVE PARAMETERS"::6:"3. INITIALIZE DATA DISKETTE"::6:"4. COPY DATA DISKETTE"::6:"5. VIr PROGRAM:DISKETTE SUPPORT:AUTHOR:SHANE MCCARRONTCOPYRIGHT:MECC, 1982o(LAST UPDATE: 83/12/01-SD=SINGLE DRIVE OPTION.:(4)"MAXFILES1":37480/SD1:1062000:DL1:DC$(8),CL$(15)1P(I)(I)(I1)256 2D$(13)(          INPUT.OBJ":D$"BRUNGFM.OBJ":D$"BRUNGMUTIL.OBJ"^ 16368,0:L1LD:LL((16384)128)LD: 901,0:902,0:INITIALIZE CLASS NUMBER AND PW FLAG RNH,"MENU" R PROGRAM:HELLO/AUTHOR:SHANE MCCARRONICOPYRIGHT:MECC, 1983g(LAST UPDATE:83/11/16 SPM{dINITIALIZATIONnD$(4)xLD1:LOGO DELAYMAIN PROGRAM:230,64:D$"BRUNLOGO":16304,0:16297,0:16299,0:16302,0/ D$"BRUNM  BL;LBѥ<%=eB$$ " CBFFL;=$<% " C0` UUUUUUUUUUUUUUUU UU P Oȱȱ8`FȄB@ i[i>CBCC AH)HJJh)JJLo)hL猦D D0 ELL ?F?1BC A I ۍF L{L L;B>H)hɠF `F ۍ L81Hȱ81Hȥ 8$օ<ȥ 8$(ƅ=ȱ8"(>ȱ8#>L?ȱ81@ȱ Dȱ Eȱ81ׅh<&݅ۅ߅,߅߅߅ h%<$=  > >=<8?+ e<#8>>> g R>P>Q?=<`L #H h`SEDDFMO֑ߑɑ`nȭ<ȭM<ȭO<><ȥ?< <<= H <=NI<M?gL+ɐqr+LfɯdS 8ɀ   Lޥ8e湥 _H^H L`qrL@@H?e@??h ΐ@ ?88` MNO <= <ȭ<  = H <=*wI<)w<+w*w``ix uu` Nv Nvʈ` Nvu`mi & & &Ș u)ijj`@@H?e@??h v@ ?88` )w*w+w <= <ȭ<ȭ<ȭ)w<ȭ+w<><ȥ?< <<`Lpuʎu vLp`,u uuʎu`DDɅ O`@DÅ ii i`0`u>x?uu ~v-JuLp>x?u vةu`͊u ,uH uh u`ix uLsL;v b uX jO v *v < O *v ;vL9tLp *v #vLt v #v ;v ` L;v uC #v 0  e- #v 3uȩȩ 9u ȩ ȩ`Lp uȄ  Lp v'  3u lu 9u lu *v' *v ه/  vLp ;v #vL;v ;v *v2 3uȩȩ Gu8 `Lpx  3u lu Gu0 lui愊i Lv u_ 3uȱȱ #v, P *vهA #vLréLp u 9u Lr u u ,Ԧ Lp *HhHh!H !h о8} 0*i8 8@ ȩ Lp  6r ;v`Lv up,'p(p$puʎu`L#p" H Ġ =u)ȱ$ Ġ =uȱ h p LhL pppp pĠ =uȥĠ =uȥ HŠ =uh#p`CDRWNIXATMSZEpqq6rtrrr2s tttuu     mͳ   ފ h`RFRNSEPACPOFFEESKzjjmhjimFj ftm`ED` &Lf`L 䎱 掲` >? l:p"m>m? l%p wlg^h_^`ȱ^Șe^^_iȑ^^_ m mm@A m  l `@ i @ ȱ ~g`,X` {ݩD ^ D` mD mmCm@mAm>m?m l Wk&wl eL׭UkPkVkQkXUkVkLXLXUkVk xl$)wlm>m? lpwl G 8`LCl8ghegiȱehj8ȱCvUk Vk UkȱVk8UkVk8ȱhͳ h` i`HFjum)hHFjɍ %jh`   ߅ lݦ h ) L{ fVD mE mBmCm@mAm>m?m l  { RPUkQVk _kL WkwlLl`N fbD mE mBhhhhh0Nvm wm9xmI7wm>ixm?iym߭ um%hjhh` Liii6H7Hh6h7,h0 i Li$Hh8$h$ ii  @ i$hhii$h6hh7h6iii`ɍɌ `/ / Ɉɍ-ɠ8 / Lh `?<>?>,>$f<<`hh ߅$0Hhh LbLv gtm$H)umh0,vm0RLkihhqi67  rg >vg?Ȑ۩`?)8鍸ζ`H88HH  ggg <= <ȭ<ȭ<ȭg<ȭg<><ȥ?< <<= H <=gI<gʱD>` <=     tm@@@@@@@AAAAAAAAAAAAAFFFFFFFSHANE 1 ,!ӠĠӠŠҠԠĠŠϢϢӭխŠӠ٠ˠӠΠӠ""