/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / GRADING-ASSISTANT / c64.bas

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 30 20 50 52 49 4e | 54 22 93 11 20 20 20 20 |100 PRIN|T"..    |
|00000010| 20 20 20 20 20 20 20 20 | 12 47 52 41 44 49 4e 47 |        |.GRADING|
|00000020| 20 41 53 53 49 53 54 41 | 4e 54 92 22 0a 31 31 30 | ASSISTA|NT.".110|
|00000030| 20 50 52 49 4e 54 22 11 | 20 20 20 20 20 20 20 46 | PRINT".|       F|
|00000040| 4f 52 20 54 48 45 20 43 | 4f 4d 4d 4f 44 4f 52 45 |OR THE C|OMMODORE|
|00000050| 20 36 34 20 4f 52 20 31 | 32 38 22 0a 31 32 30 20 | 64 OR 1|28".120 |
|00000060| 50 52 49 4e 54 22 11 11 | 11 20 20 20 20 20 20 20 |PRINT"..|.       |
|00000070| 20 20 20 20 20 20 42 59 | 20 43 48 52 49 53 20 4e |      BY| CHRIS N|
|00000080| 4f 4c 4c 45 54 22 0a 31 | 33 30 20 50 52 49 4e 54 |OLLET".1|30 PRINT|
|00000090| 22 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |".......|........|
|000000a0| 20 20 57 4f 55 4c 44 20 | 59 4f 55 20 4c 49 4b 45 |  WOULD |YOU LIKE|
|000000b0| 20 49 4e 53 54 52 55 43 | 54 49 4f 4e 53 20 28 59 | INSTRUC|TIONS (Y|
|000000c0| 2f 4e 29 3f 22 0a 31 34 | 30 20 47 45 54 41 24 3a |/N)?".14|0 GETA$:|
|000000d0| 49 46 41 24 3c 3e 22 59 | 22 41 4e 44 41 24 3c 3e |IFA$<>"Y|"ANDA$<>|
|000000e0| 22 4e 22 54 48 45 4e 31 | 34 30 0a 31 35 30 20 49 |"N"THEN1|40.150 I|
|000000f0| 46 41 24 3d 22 59 22 54 | 48 45 4e 36 39 30 0a 31 |FA$="Y"T|HEN690.1|
|00000100| 36 30 20 58 3d 30 3a 49 | 4e 50 55 54 22 93 11 11 |60 X=0:I|NPUT"...|
|00000110| 23 20 4f 46 20 47 52 41 | 44 45 53 22 3b 47 4e 0a |# OF GRA|DES";GN.|
|00000120| 31 37 30 20 49 46 47 4e | 3c 31 54 48 45 4e 31 36 |170 IFGN|<1THEN16|
|00000130| 30 0a 31 38 30 20 44 49 | 4d 47 28 47 4e 29 2c 47 |0.180 DI|MG(GN),G|
|00000140| 50 28 47 4e 29 2c 4e 24 | 28 47 4e 29 0a 31 39 30 |P(GN),N$|(GN).190|
|00000150| 20 47 50 3d 31 30 30 3a | 47 53 3d 30 0a 32 30 30 | GP=100:|GS=0.200|
|00000160| 20 46 4f 52 49 3d 31 54 | 4f 47 4e 0a 32 31 30 20 | FORI=1T|OGN.210 |
|00000170| 49 46 58 3d 30 54 48 45 | 4e 50 52 49 4e 54 22 93 |IFX=0THE|NPRINT".|
|00000180| 22 47 50 2d 47 53 22 25 | 20 52 45 4d 41 49 4e 49 |"GP-GS"%| REMAINI|
|00000190| 4e 47 22 54 41 42 28 32 | 35 29 22 47 52 41 44 45 |NG"TAB(2|5)"GRADE|
|000001a0| 22 49 22 4f 46 22 47 4e | 0a 32 32 30 20 49 46 58 |"I"OF"GN|.220 IFX|
|000001b0| 3d 30 54 48 45 4e 49 4e | 50 55 54 22 11 11 11 11 |=0THENIN|PUT"....|
|000001c0| 11 4e 41 4d 45 20 4f 46 | 20 47 52 41 44 45 22 3b |.NAME OF| GRADE";|
|000001d0| 4e 24 28 49 29 0a 32 33 | 30 20 49 46 58 3d 30 54 |N$(I).23|0 IFX=0T|
|000001e0| 48 45 4e 49 4e 50 55 54 | 22 50 45 52 43 45 4e 54 |HENINPUT|"PERCENT|
|000001f0| 41 47 45 20 4f 46 20 54 | 4f 54 41 4c 20 47 52 41 |AGE OF T|OTAL GRA|
|00000200| 44 45 20 28 45 2e 47 2e | 20 34 30 29 22 3b 47 50 |DE (E.G.| 40)";GP|
|00000210| 28 49 29 0a 32 34 30 20 | 49 46 58 3d 31 54 48 45 |(I).240 |IFX=1THE|
|00000220| 4e 50 52 49 4e 54 22 93 | 11 11 11 11 22 4e 24 28 |NPRINT".|...."N$(|
|00000230| 49 29 3b 22 3a 22 0a 32 | 35 30 20 49 4e 50 55 54 |I);":".2|50 INPUT|
|00000240| 22 47 52 41 44 45 22 3b | 47 24 0a 32 36 30 20 49 |"GRADE";|G$.260 I|
|00000250| 46 47 24 3d 22 41 22 54 | 48 45 4e 47 28 49 29 3d |FG$="A"T|HENG(I)=|
|00000260| 34 3a 47 4f 54 4f 33 39 | 30 0a 32 37 30 20 49 46 |4:GOTO39|0.270 IF|
|00000270| 47 24 3d 22 41 2d 22 54 | 48 45 4e 47 28 49 29 3d |G$="A-"T|HENG(I)=|
|00000280| 33 2e 36 37 3a 47 4f 54 | 4f 33 39 30 0a 32 38 30 |3.67:GOT|O390.280|
|00000290| 20 49 46 47 24 3d 22 42 | 2b 22 54 48 45 4e 47 28 | IFG$="B|+"THENG(|
|000002a0| 49 29 3d 33 2e 33 33 3a | 47 4f 54 4f 33 39 30 0a |I)=3.33:|GOTO390.|
|000002b0| 32 39 30 20 49 46 47 24 | 3d 22 42 22 54 48 45 4e |290 IFG$|="B"THEN|
|000002c0| 47 28 49 29 3d 33 3a 47 | 4f 54 4f 33 39 30 0a 33 |G(I)=3:G|OTO390.3|
|000002d0| 30 30 20 49 46 47 24 3d | 22 42 2d 22 54 48 45 4e |00 IFG$=|"B-"THEN|
|000002e0| 47 28 49 29 3d 32 2e 36 | 37 3a 47 4f 54 4f 33 39 |G(I)=2.6|7:GOTO39|
|000002f0| 30 0a 33 31 30 20 49 46 | 47 24 3d 22 43 2b 22 54 |0.310 IF|G$="C+"T|
|00000300| 48 45 4e 47 28 49 29 3d | 32 2e 33 33 3a 47 4f 54 |HENG(I)=|2.33:GOT|
|00000310| 4f 33 39 30 0a 33 32 30 | 20 49 46 47 24 3d 22 43 |O390.320| IFG$="C|
|00000320| 22 54 48 45 4e 47 28 49 | 29 3d 32 3a 47 4f 54 4f |"THENG(I|)=2:GOTO|
|00000330| 33 39 30 0a 33 33 30 20 | 49 46 47 24 3d 22 43 2d |390.330 |IFG$="C-|
|00000340| 22 54 48 45 4e 47 28 49 | 29 3d 31 2e 36 37 3a 47 |"THENG(I|)=1.67:G|
|00000350| 4f 54 4f 33 39 30 0a 33 | 34 30 20 49 46 47 24 3d |OTO390.3|40 IFG$=|
|00000360| 22 44 2b 22 54 48 45 4e | 47 28 49 29 3d 31 2e 33 |"D+"THEN|G(I)=1.3|
|00000370| 33 3a 47 4f 54 4f 33 39 | 30 0a 33 35 30 20 49 46 |3:GOTO39|0.350 IF|
|00000380| 47 24 3d 22 44 22 54 48 | 45 4e 47 28 49 29 3d 31 |G$="D"TH|ENG(I)=1|
|00000390| 3a 47 4f 54 4f 33 39 30 | 0a 33 36 30 20 49 46 47 |:GOTO390|.360 IFG|
|000003a0| 24 3d 22 44 2d 22 54 48 | 45 4e 47 28 49 29 3d 2e |$="D-"TH|ENG(I)=.|
|000003b0| 36 37 3a 47 4f 54 4f 33 | 39 30 0a 33 37 30 20 49 |67:GOTO3|90.370 I|
|000003c0| 46 47 24 3d 22 46 22 54 | 48 45 4e 47 28 49 29 3d |FG$="F"T|HENG(I)=|
|000003d0| 30 3a 47 4f 54 4f 33 39 | 30 0a 33 38 30 20 47 4f |0:GOTO39|0.380 GO|
|000003e0| 54 4f 32 35 30 0a 33 39 | 30 20 47 53 3d 47 53 2b |TO250.39|0 GS=GS+|
|000003f0| 47 50 28 49 29 0a 34 30 | 30 20 4e 45 58 54 0a 34 |GP(I).40|0 NEXT.4|
|00000400| 31 30 20 49 46 47 53 3c | 3e 31 30 30 54 48 45 4e |10 IFGS<|>100THEN|
|00000410| 50 52 49 4e 54 22 45 52 | 52 4f 52 20 49 4e 20 50 |PRINT"ER|ROR IN P|
|00000420| 45 52 43 45 4e 54 41 47 | 45 53 22 3a 46 4f 52 49 |ERCENTAG|ES":FORI|
|00000430| 3d 31 54 4f 31 30 30 30 | 3a 4e 45 58 54 49 3a 52 |=1TO1000|:NEXTI:R|
|00000440| 55 4e 0a 34 32 30 20 47 | 52 3d 30 0a 34 33 30 20 |UN.420 G|R=0.430 |
|00000450| 46 4f 52 49 3d 31 54 4f | 47 4e 0a 34 34 30 20 47 |FORI=1TO|GN.440 G|
|00000460| 52 3d 47 52 2b 28 28 47 | 50 28 49 29 2f 31 30 30 |R=GR+((G|P(I)/100|
|00000470| 29 2a 47 28 49 29 29 0a | 34 35 30 20 4e 45 58 54 |)*G(I)).|450 NEXT|
|00000480| 49 0a 34 36 30 20 49 46 | 47 52 3e 3d 33 2e 38 33 |I.460 IF|GR>=3.83|
|00000490| 54 48 45 4e 47 24 3d 22 | 41 22 3a 47 4f 54 4f 35 |THENG$="|A":GOTO5|
|000004a0| 38 30 0a 34 37 30 20 49 | 46 47 52 3e 3d 33 2e 35 |80.470 I|FGR>=3.5|
|000004b0| 54 48 45 4e 47 24 3d 22 | 41 2d 22 3a 47 4f 54 4f |THENG$="|A-":GOTO|
|000004c0| 35 38 30 0a 34 38 30 20 | 49 46 47 52 3e 3d 33 2e |580.480 |IFGR>=3.|
|000004d0| 31 36 54 48 45 4e 47 24 | 3d 22 42 2b 22 3a 47 4f |16THENG$|="B+":GO|
|000004e0| 54 4f 35 38 30 0a 34 39 | 30 20 49 46 47 52 3e 3d |TO580.49|0 IFGR>=|
|000004f0| 32 2e 38 33 54 48 45 4e | 47 24 3d 22 42 22 3a 47 |2.83THEN|G$="B":G|
|00000500| 4f 54 4f 35 38 30 0a 35 | 30 30 20 49 46 47 52 3e |OTO580.5|00 IFGR>|
|00000510| 3d 32 2e 35 54 48 45 4e | 47 24 3d 22 42 2d 22 3a |=2.5THEN|G$="B-":|
|00000520| 47 4f 54 4f 35 38 30 0a | 35 31 30 20 49 46 47 52 |GOTO580.|510 IFGR|
|00000530| 3e 3d 32 2e 31 36 54 48 | 45 4e 47 24 3d 22 43 2b |>=2.16TH|ENG$="C+|
|00000540| 22 3a 47 4f 54 4f 35 38 | 30 0a 35 32 30 20 49 46 |":GOTO58|0.520 IF|
|00000550| 47 52 3e 3d 31 2e 38 09 | 0a 35 33 30 20 49 46 47 |GR>=1.8.|.530 IFG|
|00000560| 52 3e 3d 31 2e 35 54 48 | 45 4e 47 24 3d 22 43 2d |R>=1.5TH|ENG$="C-|
|00000570| 22 3a 47 4f 54 4f 35 38 | 30 0a 35 34 30 20 49 46 |":GOTO58|0.540 IF|
|00000580| 47 52 3e 3d 31 2e 31 36 | 54 48 45 4e 47 24 3d 22 |GR>=1.16|THENG$="|
|00000590| 44 2b 22 3a 47 4f 54 4f | 35 38 30 0a 35 35 30 20 |D+":GOTO|580.550 |
|000005a0| 49 46 47 52 3e 3d 2e 38 | 33 54 48 45 4e 47 24 3d |IFGR>=.8|3THENG$=|
|000005b0| 22 44 22 3a 47 4f 54 4f | 35 38 30 0a 35 36 30 20 |"D":GOTO|580.560 |
|000005c0| 49 46 47 52 3e 3d 2e 35 | 54 48 45 4e 47 24 3d 22 |IFGR>=.5|THENG$="|
|000005d0| 44 2d 22 3a 47 4f 54 4f | 35 38 30 0a 35 37 30 20 |D-":GOTO|580.570 |
|000005e0| 47 24 3d 22 46 22 0a 35 | 38 30 20 50 52 49 4e 54 |G$="F".5|80 PRINT|
|000005f0| 22 54 4f 54 41 4c 20 47 | 50 41 3d 22 3b 47 52 0a |"TOTAL G|PA=";GR.|
|00000600| 35 39 30 20 50 52 49 4e | 54 22 46 49 4e 41 4c 20 |590 PRIN|T"FINAL |
|00000610| 47 52 41 44 45 3d 20 22 | 3b 47 24 0a 36 30 30 20 |GRADE= "|;G$.600 |
|00000620| 50 52 49 4e 54 3a 50 52 | 49 4e 54 3a 50 52 49 4e |PRINT:PR|INT:PRIN|
|00000630| 54 22 41 4e 4f 54 48 45 | 52 20 28 59 2f 4e 29 3f |T"ANOTHE|R (Y/N)?|
|00000640| 20 22 0a 36 31 30 20 47 | 45 54 41 24 3a 49 46 41 | ".610 G|ETA$:IFA|
|00000650| 24 3c 3e 22 59 22 41 4e | 44 41 24 3c 3e 22 4e 22 |$<>"Y"AN|DA$<>"N"|
|00000660| 54 48 45 4e 36 31 30 0a | 36 32 30 20 49 46 41 24 |THEN610.|620 IFA$|
|00000670| 3d 22 59 22 54 48 45 4e | 58 3d 31 3a 47 4f 54 4f |="Y"THEN|X=1:GOTO|
|00000680| 36 37 30 0a 36 33 30 20 | 50 52 49 4e 54 22 11 11 |670.630 |PRINT"..|
|00000690| 52 55 4e 20 41 4e 4f 54 | 48 45 52 20 53 45 52 49 |RUN ANOT|HER SERI|
|000006a0| 45 53 20 28 59 2f 4e 29 | 3f 22 0a 36 34 30 20 47 |ES (Y/N)|?".640 G|
|000006b0| 45 54 41 24 3a 49 46 41 | 24 3c 3e 22 59 22 41 4e |ETA$:IFA|$<>"Y"AN|
|000006c0| 44 41 24 3c 3e 22 4e 22 | 54 48 45 4e 36 34 30 0a |DA$<>"N"|THEN640.|
|000006d0| 36 35 30 20 49 46 41 24 | 3d 22 4e 22 54 48 45 4e |650 IFA$|="N"THEN|
|000006e0| 45 4e 44 0a 36 36 30 20 | 52 55 4e 0a 36 37 30 20 |END.660 |RUN.670 |
|000006f0| 46 4f 52 49 3d 31 54 4f | 47 4e 3a 47 28 49 29 3d |FORI=1TO|GN:G(I)=|
|00000700| 30 0a 36 38 30 20 4e 45 | 58 54 49 3a 47 4f 54 4f |0.680 NE|XTI:GOTO|
|00000710| 31 39 30 0a 36 39 30 20 | 50 52 49 4e 54 22 93 20 |190.690 |PRINT". |
|00000720| 20 20 54 48 49 53 20 49 | 53 20 41 20 53 49 4d 50 |  THIS I|S A SIMP|
|00000730| 4c 45 20 41 4e 44 20 52 | 45 4c 41 54 49 56 45 4c |LE AND R|ELATIVEL|
|00000740| 59 22 0a 37 30 30 20 50 | 52 49 4e 54 22 47 4f 4f |Y".700 P|RINT"GOO|
|00000750| 46 2d 50 52 4f 4f 46 20 | 50 52 4f 47 52 41 4d 20 |F-PROOF |PROGRAM |
|00000760| 54 48 41 54 20 41 4c 4c | 4f 57 53 20 59 4f 55 20 |THAT ALL|OWS YOU |
|00000770| 54 4f 22 0a 37 31 30 20 | 50 52 49 4e 54 22 49 4e |TO".710 |PRINT"IN|
|00000780| 50 55 54 20 41 20 4e 55 | 4d 42 45 52 20 4f 46 20 |PUT A NU|MBER OF |
|00000790| 47 52 41 44 45 53 20 41 | 4e 44 20 54 48 45 49 52 |GRADES A|ND THEIR|
|000007a0| 22 0a 37 32 30 20 50 52 | 49 4e 54 22 50 45 52 43 |".720 PR|INT"PERC|
|000007b0| 45 4e 54 41 47 45 20 09 | 00 20 54 48 45 20 54 4f |ENTAGE .|. THE TO|
|000007c0| 54 41 4c 20 47 52 41 44 | 45 20 46 4f 52 20 41 22 |TAL GRAD|E FOR A"|
|000007d0| 0a 37 33 30 20 50 52 49 | 4e 54 22 50 41 52 54 49 |.730 PRI|NT"PARTI|
|000007e0| 43 55 4c 41 52 20 53 54 | 55 44 45 4e 54 2e 20 20 |CULAR ST|UDENT.  |
|000007f0| 54 48 45 20 50 52 4f 47 | 52 41 4d 20 54 48 45 4e |THE PROG|RAM THEN|
|00000800| 22 0a 37 34 30 20 50 52 | 49 4e 54 22 43 41 4c 43 |".740 PR|INT"CALC|
|00000810| 55 4c 41 54 45 53 20 54 | 48 45 20 46 49 4e 41 4c |ULATES T|HE FINAL|
|00000820| 20 47 52 41 44 45 20 41 | 4e 44 20 47 50 41 20 46 | GRADE A|ND GPA F|
|00000830| 4f 52 22 0a 37 35 30 20 | 50 52 49 4e 54 22 54 48 |OR".750 |PRINT"TH|
|00000840| 41 54 20 53 54 55 44 45 | 4e 54 2e 22 0a 37 36 30 |AT STUDE|NT.".760|
|00000850| 20 50 52 49 4e 54 22 20 | 20 20 54 48 45 20 50 52 | PRINT" |  THE PR|
|00000860| 4f 47 52 41 4d 20 57 49 | 4c 4c 20 46 49 52 53 54 |OGRAM WI|LL FIRST|
|00000870| 20 41 53 4b 20 59 4f 55 | 20 46 4f 52 22 0a 37 37 | ASK YOU| FOR".77|
|00000880| 30 20 50 52 49 4e 54 22 | 54 48 45 20 4e 55 4d 42 |0 PRINT"|THE NUMB|
|00000890| 45 52 20 4f 46 20 47 52 | 41 44 45 53 20 54 48 41 |ER OF GR|ADES THA|
|000008a0| 54 20 59 4f 55 20 57 41 | 4e 54 20 54 4f 22 0a 37 |T YOU WA|NT TO".7|
|000008b0| 38 30 20 50 52 49 4e 54 | 22 49 4e 43 4c 55 44 45 |80 PRINT|"INCLUDE|
|000008c0| 20 49 4e 20 59 4f 55 52 | 20 54 4f 54 41 4c 2e 20 | IN YOUR| TOTAL. |
|000008d0| 20 49 54 20 57 49 4c 4c | 20 54 48 45 4e 22 0a 37 | IT WILL| THEN".7|
|000008e0| 39 30 20 50 52 49 4e 54 | 22 41 53 4b 20 59 4f 55 |90 PRINT|"ASK YOU|
|000008f0| 20 46 4f 52 20 54 48 45 | 20 4e 41 4d 45 20 4f 46 | FOR THE| NAME OF|
|00000900| 20 45 41 43 48 20 47 52 | 41 44 45 22 0a 38 30 30 | EACH GR|ADE".800|
|00000910| 20 50 52 49 4e 54 22 28 | 45 58 41 4d 50 4c 45 3a | PRINT"(|EXAMPLE:|
|00000920| 20 4d 49 44 54 45 52 4d | 20 45 58 41 4d 29 2c 20 | MIDTERM| EXAM), |
|00000930| 54 48 45 20 50 45 52 43 | 45 4e 54 41 47 45 22 0a |THE PERC|ENTAGE".|
|00000940| 38 31 30 20 50 52 49 4e | 54 22 4f 46 20 54 48 45 |810 PRIN|T"OF THE|
|00000950| 20 54 4f 54 41 4c 20 47 | 52 41 44 45 20 54 48 41 | TOTAL G|RADE THA|
|00000960| 54 20 54 48 45 20 47 52 | 41 44 45 20 49 53 22 0a |T THE GR|ADE IS".|
|00000970| 38 32 30 20 50 52 49 4e | 54 22 57 4f 52 54 48 20 |820 PRIN|T"WORTH |
|00000980| 28 45 58 41 4d 50 4c 45 | 3a 20 35 30 29 2c 20 41 |(EXAMPLE|: 50), A|
|00000990| 4e 44 20 54 48 45 20 53 | 54 55 44 45 4e 54 27 53 |ND THE S|TUDENT'S|
|000009a0| 22 0a 38 33 30 20 50 52 | 49 4e 54 22 41 43 54 55 |".830 PR|INT"ACTU|
|000009b0| 41 4c 20 47 52 41 44 45 | 20 28 45 58 41 4d 50 4c |AL GRADE| (EXAMPL|
|000009c0| 45 3a 20 41 2d 29 2e 20 | 20 54 48 45 22 0a 38 34 |E: A-). | THE".84|
|000009d0| 30 20 50 52 49 4e 54 22 | 50 45 52 43 45 4e 54 20 |0 PRINT"|PERCENT |
|000009e0| 4f 46 20 54 48 45 20 09 | 00 54 41 4c 20 47 52 41 |OF THE .|.TAL GRA|
|000009f0| 44 45 20 57 48 49 43 48 | 20 49 53 22 0a 38 35 30 |DE WHICH| IS".850|
|00000a00| 20 50 52 49 4e 54 22 53 | 54 49 4c 4c 20 41 56 41 | PRINT"S|TILL AVA|
|00000a10| 49 4c 41 42 4c 45 20 57 | 49 4c 4c 20 42 45 20 44 |ILABLE W|ILL BE D|
|00000a20| 49 53 50 4c 41 59 45 44 | 20 41 54 22 0a 38 36 30 |ISPLAYED| AT".860|
|00000a30| 20 50 52 49 4e 54 22 54 | 48 45 20 54 4f 50 20 4f | PRINT"T|HE TOP O|
|00000a40| 46 20 54 48 45 20 53 43 | 52 45 45 4e 20 41 53 20 |F THE SC|REEN AS |
|00000a50| 41 20 4d 45 4d 4f 52 59 | 20 41 49 44 2e 22 0a 38 |A MEMORY| AID.".8|
|00000a60| 37 30 20 50 52 49 4e 54 | 22 49 46 20 59 4f 55 52 |70 PRINT|"IF YOUR|
|00000a70| 20 47 52 41 44 45 20 50 | 45 52 43 45 4e 54 41 47 | GRADE P|ERCENTAG|
|00000a80| 45 53 20 44 4f 20 4e 4f | 54 20 41 44 44 22 0a 38 |ES DO NO|T ADD".8|
|00000a90| 38 30 20 50 52 49 4e 54 | 22 55 50 20 54 4f 20 31 |80 PRINT|"UP TO 1|
|00000aa0| 30 30 25 2c 20 54 48 45 | 20 50 52 4f 47 52 41 4d |00%, THE| PROGRAM|
|00000ab0| 20 57 49 4c 4c 20 44 49 | 53 50 4c 41 59 22 0a 38 | WILL DI|SPLAY".8|
|00000ac0| 39 30 20 50 52 49 4e 54 | 22 41 4e 20 45 52 52 4f |90 PRINT|"AN ERRO|
|00000ad0| 52 20 4d 45 53 53 41 47 | 45 20 41 4e 44 20 53 54 |R MESSAG|E AND ST|
|00000ae0| 41 52 54 20 4f 56 45 52 | 2e 22 0a 39 30 30 20 50 |ART OVER|.".900 P|
|00000af0| 52 49 4e 54 22 11 11 50 | 52 45 53 53 20 41 4e 59 |RINT"..P|RESS ANY|
|00000b00| 20 4b 45 59 20 54 4f 20 | 43 4f 4e 54 49 4e 55 45 | KEY TO |CONTINUE|
|00000b10| 22 0a 39 31 30 20 47 45 | 54 41 24 3a 49 46 41 24 |".910 GE|TA$:IFA$|
|00000b20| 3d 22 22 54 48 45 4e 39 | 31 30 0a 39 32 30 20 50 |=""THEN9|10.920 P|
|00000b30| 52 49 4e 54 22 93 20 20 | 20 41 46 54 45 52 20 41 |RINT".  | AFTER A|
|00000b40| 4c 4c 20 47 52 41 44 45 | 53 20 46 4f 52 20 41 20 |LL GRADE|S FOR A |
|00000b50| 50 41 52 54 49 43 55 4c | 41 52 22 0a 39 33 30 20 |PARTICUL|AR".930 |
|00000b60| 50 52 49 4e 54 22 53 54 | 55 44 45 4e 54 20 41 52 |PRINT"ST|UDENT AR|
|00000b70| 45 20 45 4e 54 45 52 45 | 44 2c 20 54 48 45 20 50 |E ENTERE|D, THE P|
|00000b80| 52 4f 47 52 41 4d 20 57 | 49 4c 4c 22 0a 39 34 30 |ROGRAM W|ILL".940|
|00000b90| 20 50 52 49 4e 54 22 44 | 49 53 50 4c 41 59 20 54 | PRINT"D|ISPLAY T|
|00000ba0| 48 45 20 46 49 4e 41 4c | 20 47 52 41 44 45 20 46 |HE FINAL| GRADE F|
|00000bb0| 4f 52 20 54 48 45 20 53 | 54 55 44 45 4e 54 22 0a |OR THE S|TUDENT".|
|00000bc0| 39 35 30 20 50 52 49 4e | 54 22 41 4e 44 20 41 53 |950 PRIN|T"AND AS|
|00000bd0| 4b 20 59 4f 55 20 49 46 | 20 59 4f 55 20 57 41 4e |K YOU IF| YOU WAN|
|00000be0| 54 20 54 4f 20 52 55 4e | 20 54 48 45 20 53 41 4d |T TO RUN| THE SAM|
|00000bf0| 45 22 0a 39 36 30 20 50 | 52 49 4e 54 22 47 52 41 |E".960 P|RINT"GRA|
|00000c00| 44 45 20 53 45 52 49 45 | 53 20 41 47 41 49 4e 20 |DE SERIE|S AGAIN |
|00000c10| 28 46 4f 52 20 41 4e 4f | 54 09 00 52 20 53 54 55 |(FOR ANO|T..R STU|
|00000c20| 44 45 4e 54 22 0a 39 37 | 30 20 50 52 49 4e 54 22 |DENT".97|0 PRINT"|
|00000c30| 46 4f 52 20 45 58 41 4d | 50 4c 45 29 2e 20 20 49 |FOR EXAM|PLE).  I|
|00000c40| 46 20 59 4f 55 20 53 45 | 4c 45 43 54 20 27 59 27 |F YOU SE|LECT 'Y'|
|00000c50| 20 54 48 45 20 22 0a 39 | 38 30 20 50 52 49 4e 54 | THE ".9|80 PRINT|
|00000c60| 22 50 52 4f 47 52 41 4d | 20 57 49 4c 4c 20 52 45 |"PROGRAM| WILL RE|
|00000c70| 2d 52 55 4e 2c 20 55 53 | 49 4e 47 20 54 48 45 20 |-RUN, US|ING THE |
|00000c80| 53 41 4d 45 22 0a 39 39 | 30 20 50 52 49 4e 54 22 |SAME".99|0 PRINT"|
|00000c90| 47 52 41 44 45 20 4e 41 | 4d 45 53 20 41 4e 44 20 |GRADE NA|MES AND |
|00000ca0| 50 45 52 43 45 4e 54 41 | 47 45 53 2e 20 20 49 46 |PERCENTA|GES.  IF|
|00000cb0| 20 59 4f 55 22 0a 31 30 | 30 30 20 50 52 49 4e 54 | YOU".10|00 PRINT|
|00000cc0| 22 53 45 4c 45 43 54 20 | 27 4e 27 20 54 48 45 20 |"SELECT |'N' THE |
|00000cd0| 50 52 4f 47 52 41 4d 20 | 57 49 4c 4c 20 41 53 4b |PROGRAM |WILL ASK|
|00000ce0| 20 59 4f 55 22 0a 31 30 | 31 30 20 50 52 49 4e 54 | YOU".10|10 PRINT|
|00000cf0| 22 49 46 20 59 4f 55 20 | 57 41 4e 54 20 54 4f 20 |"IF YOU |WANT TO |
|00000d00| 52 55 4e 20 41 20 44 49 | 46 46 45 52 45 4e 54 20 |RUN A DI|FFERENT |
|00000d10| 53 45 54 20 4f 46 22 0a | 31 30 32 30 20 50 52 49 |SET OF".|1020 PRI|
|00000d20| 4e 54 22 47 52 41 44 45 | 53 2e 22 0a 31 30 33 30 |NT"GRADE|S.".1030|
|00000d30| 20 50 52 49 4e 54 22 11 | 11 11 11 50 52 45 53 53 | PRINT".|...PRESS|
|00000d40| 20 41 4e 59 20 4b 45 59 | 20 54 4f 20 43 4f 4e 54 | ANY KEY| TO CONT|
|00000d50| 49 4e 55 45 22 0a 31 30 | 34 30 20 47 45 54 41 24 |INUE".10|40 GETA$|
|00000d60| 3a 49 46 41 24 3d 22 22 | 54 48 45 4e 31 30 34 30 |:IFA$=""|THEN1040|
|00000d70| 0a 31 30 35 30 20 50 52 | 49 4e 54 22 93 20 20 20 |.1050 PR|INT".   |
|00000d80| 49 20 48 4f 50 45 20 54 | 48 41 54 20 59 4f 55 20 |I HOPE T|HAT YOU |
|00000d90| 46 49 4e 44 20 54 48 49 | 53 20 50 52 4f 47 52 41 |FIND THI|S PROGRA|
|00000da0| 4d 22 0a 31 30 36 30 20 | 50 52 49 4e 54 22 55 53 |M".1060 |PRINT"US|
|00000db0| 45 46 55 4c 2e 20 20 49 | 46 20 59 4f 55 20 48 41 |EFUL.  I|F YOU HA|
|00000dc0| 56 45 20 41 4e 59 20 43 | 4f 4d 4d 45 4e 54 53 20 |VE ANY C|OMMENTS |
|00000dd0| 4f 52 22 0a 31 30 37 30 | 20 50 52 49 4e 54 22 51 |OR".1070| PRINT"Q|
|00000de0| 55 45 53 54 49 4f 4e 53 | 2c 20 50 4c 45 41 53 45 |UESTIONS|, PLEASE|
|00000df0| 20 4c 45 54 20 4d 45 20 | 4b 4e 4f 57 3a 22 0a 31 | LET ME |KNOW:".1|
|00000e00| 30 38 30 20 50 52 49 4e | 54 22 11 11 11 20 20 20 |080 PRIN|T"...   |
|00000e10| 20 20 43 48 52 49 53 20 | 4e 4f 4c 4c 45 54 22 0a |  CHRIS |NOLLET".|
|00000e20| 31 30 39 30 20 50 52 49 | 4e 54 22 20 20 20 20 20 |1090 PRI|NT"     |
|00000e30| 52 4f 55 54 45 20 31 2c | 20 42 4f 58 20 36 37 41 |ROUTE 1,| BOX 67A|
|00000e40| 22 0a 31 31 30 30 20 50 | 52 49 4e 54 22 20 20 20 |".1100 P|RINT"   |
|00000e50| 20 20 57 45 4e 54 57 4f | 52 54 48 2c 20 57 09 00 |  WENTWO|RTH, W..|
|00000e60| 20 35 34 38 37 34 22 0a | 31 31 31 30 20 50 52 49 | 54874".|1110 PRI|
|00000e70| 4e 54 22 11 11 11 11 50 | 52 45 53 53 20 41 4e 59 |NT"....P|RESS ANY|
|00000e80| 20 4b 45 59 20 54 4f 20 | 52 55 4e 20 54 48 45 20 | KEY TO |RUN THE |
|00000e90| 50 52 4f 47 52 41 4d 22 | 0a 31 31 32 30 20 47 45 |PROGRAM"|.1120 GE|
|00000ea0| 54 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 31 |TA$:IFA$|=""THEN1|
|00000eb0| 31 32 30 0a 31 31 33 30 | 20 47 4f 54 4f 31 36 30 |120.1130| GOTO160|
|00000ec0| 0a 36 36 38 32 20 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.6682 ..|........|
|00000ed0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ee0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ef0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000f00| 1a 0a                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+