lDxDAGRADESNAMEBBLDGMDGRNQRDASGTOTAHIGHESHORSEARCCSSLTCTGDIIIABCDAGGNLGAGNAGAGHHGCGRUKPPPGWHA@@  !"#$%&'()*+@,-.@/@0@123456789:@;<=dbb*ҧӠР* *By Kean Hurley 21/1/84 * * VARIABLE LISTmm*A$,B$ =STANDARD INPUT STRING *GRADES=STORES STUDENT GRADES *NAME$ =STORES STUDENT NAMEmm*Q$,R$ =DUMMY INPUT STRING *D$ =STORE CLASS FILE NAME *GMD =USED TO MARK GRADES##*GRN$ =STORE ASSIGNMENT NAME6{;@&,9@A<@A,;A,;@&,;@ ,9@A,;A,;@0,;@,9@,6-@@K:711;@,;@,9@@,;@,^hMAIN MENU MODULEr\ +-@@6(ҧӠH-@@\( by #@@# Ap@AR@ AP1-@@@( Π$-@@$( ---------9-@@9(1. START NEW FILE (ENTER CLASS)7-@@7(2. UPLOAD FILE (GATHER CLASS)4-@@4(3. EDIT FILE (CHANGE ROLE))-@@)(4. ENTER GRADES8-@@8(5. QUERY FILE (EXAMINE GRADES)+-@@+(6. PRINT HARDCOPY.-@@.(7. SAVE FILE (CLASS)/-@@/(8. MODIFY GRADE SCALE1-@@1(9. QUIT OR ERASE GRADESd-@@ 0(ҠҠκ=)@F6.>:,T21)39Z(d Aw6-)+32*29,*";-@@"e($ԠϠŠŠӠԠq6-@w(2"@)@(6-2 ApRRA:,ApApA @AA0A!A%A)A&9 Ap&0CREATE FILE MODULE:S + AP)-@ @G( (ENTER CLASS)S6-@D?-@@?(%PLEASE ENTER FILE NAME(i.e. PERIOD.1)N"-@@(D1:"X>-@@:(HOW MANY STUDENTS IN THE CLASS:>bL-@@8(ARE YOU SURE ABOUT THAT(Y/N):<L0YAl+(+( ҠԧӠŨԠԩv9-&@+-@@ 5 AP9  A) A~/( ENTER STUDENT #%@'S NAME:2(V( .........................o6-+F:@,&@&,~6-F:@, -2267$@%%@<$@%%@%,.$> 6.D1:!67B:,%@,.>@@# @# @O-&@K(@7$@%%@<$@%%@%,O <-@ 6-8,-(@1 <@N-@@#A(&ˬԧӠ̮נԠ٠٠ҠN)@$UPLOAD FILE MODULEO + AP`)-@@9( ĠE6-@O A@ N-@@,(ENTER CLASS NAME:0:6.D1:N67B:,%@,. @@-@:@P-&@]@67$@%%@<$@%%@%,.7@<@%,  "A0*^-@@Z67$@%@<$@%@,.7@<@,^ 4?--@,@768<,-; ? > A`HW (-@ @!3( ˠɯϠҡW( Ԡ٠٠Ϡ٠ΡR%@)@% Ap\/-@@/( HAS BEEN UPLOADED.f=-@@=(IT HAS A TOTAL OF  STUDENT(S),p8-@@8(AND A TOTAL OF  GRADE(S).zE A!-@.@768,-; E A  A)I@ -@@#<(Ԡ٠٠ŠI)@$***EDIT FILE MODULE*** +{ AP0-@@;(Ԡ (CHANGE ROLE)M-@@[( Šm-@@{( ---------*-@@*(1. ADD A STUDENT+-@@+(2. RENAME STUDENT+-@@+(3. DELETE STUDENT&-@@&( 4. Π`-@@,(Šκ9)@B6.>:,P21)34V(` A **A:,APAAA  + A @ ' $EDIT*SUBMODULEADD STUDENT! 6- AP!6-%@$L-@@#<(!ԧӠ̠ŮנԠ٠١I)@L$.EDIT*SUBMODULE8CHANGE STUDENT NAMEBx-@@,(ҠŠϠĮP( .........................i6-+F:@,&@&,x6-F:@,L - VN-&@D7$@%%@<$@%%@%,4N A@` jL-@@!(B(! ٠ԠϠȠӠL A`tW-@ @0(ȠĬԠŮ3(W( .........................~j6-+F:@,&@&,+6-F:@,1-5`67$@%%@<$@%%@%,.j A`****EDIT*SUBMODULE*******DELETE STUDENT***z-@@.(ҠŠϠR( .........................k6-+F:@,&@&,z6-F:@, - N-&@D7$@%%@<$@%%@%,4N A0 L-@@!(B(! ٠ԠϠȠӠL A`_-@@(B( ARE YOU SURE YOU WANT TO DELETE:F_7@,0YA`"&@ Ap-%@&@67+&@,$@%%@<+&@,$@%%@%,.7$@%%@<$@%%@%,-@#68<,-8%@<, # 6-&@ A` ENTER GRADES MODULE: + AP@)-@@:( Ҡ6. -@@7(ASSIGNMENT NUMBER #%@I-@@n(TOTAL WORTH OF THIS ASSIGNMENT:r6-%@(q-@@5(ASSIGNMENT NAME:..........N6-+F:@,&@,]6-F:@,c-m APq2E68<,- 6-.-@A6-%8<,E <U-&@(68,-, @-@@@Q68<,-U F??67$@%@<$@%@,.7@<@,Pr-@@3(̠ӠӠź6(9(P(ԠϠĠS(r(ȠԠŠQZX + AP)-@@<(ӠF ApXAR@d6-@6-@'6-=-&@h6.7$@%%@<$@%%@%,|-@@7<,4 6-%@ An xC6-%@6-%@+"@"76-@C6-@ &8,"@ -&@&(*0 -(.0(7@<@&B:=:,,,(7@<,.8 -%@&( 0. Π8AR[-@@"0(ҠԠҺ4JA:, )A:,!Q([ AP 40$W6-A:,&@+-68,-@?-@@W(ҠԠ~-@@K( GRADE FOR:7$@%%@<$@%%@%,]-@@~(WHAT IS THE STUDENTS SCORE:&20)A:,!(& AT-@@)-@@J7$@%<$@%,4.T A  6-%@@@(FOR ASSIGNMENT:7$@%@<$@%&@,L68%@<,-A:,%6-3-@H6-%8%@<,L d-@@&( OUT OF:8-@@[(WOULD EQUAL THE LETTER GRADE:d6-A:, 6- AB-@@8(STUDENTS NEW CLASS TOTAL IS:B A",""*CODE TO FIND LETTER GRADE**6 6-+',@/8@,(A%6-/ APJ/8@,(B%6-@/ APT/8@,(C%6-@/ APY/8@,(D%6-@/ AP^ (6-@r>6-8,&8%@,,6-&8%@,>6-+',$@s @(-|!@(+ ( $i-@@A(OUT OF: EQUAL TO THE LETTER GRADE:S-@@Y6-_6-i A 4N A A>-@@ 1(Ԡ٠٠ϠϠκ>)@ ApQUERY CLASS MODULEE + AP`)-@@;( ŠE A06. F6--@06-%8<,4 FAR@6-@6-@'6-=-&@h6.7$@%%@<$@%%@%,|-@@7<,4 6-%@ Ap C6-%@6-%@+"@"76-@C6-@ 0 -(.0(7@<@&B:=:,,,(7@<,.8 -%@&( 0. Π8AR[-@@"0(ҠԠҺ4JA:, )A:,!Q([ A 40$&6-A:,&@03 +-@@3(Š:K-@@K( EXAMINING:7$@%%@<$@%%@%,D66--@26-%8%@<,6 N0-@@0(  X>-@@4(STUDENTS CLASS TOTAL IS:> Abr-@@A(OUT OF: EQUAL TO THE LETTER GRADE:S-@@\(OF b6-h6-r Alo-@@@(&ҠԣϠנҠϠR-@@k(WHAT'S YOUR CHOICE:ov"20)A:,!(" A 40 A03-@&@( /-@&@3(t-@@Z(THE OLD GRADE WAS:8%@($ P-@ @ FF(FOR ASSIGNMENT:7A:,$@%@G + AP)-@@;( ŠG6-H_-@@=("PRINT (1)A SINGLE ,(2)ALL STUDENT:AO21)32U(_ A! R 42 A!\p(!( ENTER STUDENT NAME:$(H( .........................a6-+F:@,&@&,p6-F:@,f - pN-&@D7$@%%@<$@%%@%,4N A!z L-@@!(B(! ٠ԠϠȠӠL A Y-@@?($PRINT (1)ALL GRADES,OR(2)ONLY TOTAL:CY21)32A!)-@@%( ENTER DATE)m-@@ @(%ΠΠҠҠΠԠ٠M)@m@@P:5 41 A"@-' A"p+ 5 A#Y A"@ A"`6-6-\(@" STUDENT RECORDS FOR 7@(@- ӠԠӬӬ:I(@O6-\6-6@f A#l6-w(@(@6- A#` A$p<-&@# A"p.(@2 < A#YB(@%@. 2%@ @B(@ 66(@7$@%%@<$@%%@%,/6-6-% A#/ A#@86--@842*!6@A#  6-%@j(@# . 7$@%@<$@%@,> 8%@<, v"@6-(@6-%@ n6-%8%@<, *6-%@5(@W(@---TOTAL POINTS: d"6@n A#@ = 6-6-3(@ Ԡ: = A#p$ m6-%@)!@8* &@4(@@6-T-@@_(@c m A"@. $7  A#` A#i8 t(@ Š:((@F6-&P:$8@,%?P,b6-P:$8@,%?P,j6.At A; m 6.B'6-P:$8@,%?P,c6-P:$8@,&@%?P,&P:$8@,%?P,m A< m 6.C'6-P:$8@,%?P,c6-P:$8@,&@%?P,&P:$8@,%?P,m A= m 6.D'6-P:$8@,%?P,c6-P:$8@,&@%?P,&P:$8@,%?P,m A> w 6.F'6-P:$8@,%?P,c6-P:$8@,&@%?P,&P:$8@,%?P,m Aw Ap? $A @ A0B 6-+',L 88@,"(@A.6-8 A$0V 88@,"(@B.6-@8 A$0` 88@,"(@C.6-@8 A$0j 88@,"(@D.6-@8 A$0t 6-@(@~ >6-8,&8%@,,6-&8%@,>6-+',$@  @(@- !@P(@+ (@$ a^(@M-----------------------------------------------------------------------------a$ ************************ ***UPDATE CLASS MODULE** ? + AP@)-@@9( Š?6- ;-@@;(!SURE YOU WANT TO MAKE A PERMANENT H-@@0(CHANGE ON CLASS DATA:4E7@,0YH$ A% \ AP -@@D(ŠϠŠӠҠ:HY7@,0Y\$ (-@@(( Šՠ: ""@$ "6-@ 7@,0Y$ I-@@=(#GRADE DATA HAS BEEN ON DISK,I6- (BUT NOT IN MEMORY... : @@-(@:(@ O-&@K(@7$@%%@<$@%%@%,O ( " A&%2 G-@C(@7$@%@<$@%@,G < 9--@1(@8<,5 9 A 1-@ 6-8,-(@1 F @6-$O 2 +-@@((2 A%0P f-@@"<("ŠՠŠԠϠԠϠԠb( ŠՠĠ̠ӺfZ 7@,0Y$d 8 +-@@'(*'5@8 68,-A-68@,-@B68@,-@W68@,-@pl68@,-@`68@,- A0$ ?-@.68,-P:8,$A,2 < A0?$ : +-@@0( ٠: A0 C-@@C(-A- GRADE IS FROM 100% TO 8@,% V-@@V(-B- GRAGE IS FROM 8@,&@% TO 8@,% V-@@ V(-C- GRAGE IS FROM 8@,&@% TO 8@,% V-@@V(-D- GRAGE IS FROM 8@,&@% TO 8@,% I-@@I(-F- GRAGE IS FROM 8@,&@% TO 0% +-@@+(ENTER -Q- TO QUIT :-@@6(ENTER RANGE TO CHANGE(A-D):: : 4Q-@368,-8,'A7 :$ 0 (+4A)4B)4C)4D,&(0 A0p 6-+@:,&@:A,,%@ n6-8&@,&@56-8%@,%@G-@@n("Please enter new lower range valueF.( It can be between  and  :2<!) F A@68,-P:, A0T070@@Q0@@T$T0@70@@@Q0@@@T$T0@70@@@Q0@@@T$T0@70@@@Q0@@@T$T0@70@@@Q0@@@T$T0@70@@@Q0@@@T$T0@@70@@@Q0@@@T$pT0@70@@@Q0@@@T$X(@.(@ԯŠź9(@\(@Ҡ٠ΠӺg(@(@[9 AND =] [8 AND =]bM.(@[7 AND =] [6 AND =]M(@[5.9 AND =]l$@M6-P:$?%?P,M(@+ = % TO % JPP(@ = +%,&@ TO %P:$?0%?P, T??(@- = %P:$?0&@%?P, TO ^$r$(# (} $ D8:W