GRADEBOOK.C
FILE INFORMATION
FILENAME(S): GRADEBOOK.C
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 3 disk(s)
FILE HASH
708782244b112a6f38929c19ade84ef713f9e8ff412169dc9b1cdd5dcf775a5e
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | GRADEBOOK.C | PRG | Treasure Chest - Plattfuss | 8 | 0 | DOWNLOAD FILE |
| TPUG APRIL 84 C | GRADEBOOK.C | PRG | Sailor, Ganheden | 8 | 0 | DOWNLOAD FILE |
| TPUG APRIL 84 C | GRADEBOOK.C | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 01 00 A0 31 35 3A 9F 31 35 2C 38 2C |.......15:.15,8,|
00000010: 31 35 3A 89 35 00 2A 08 02 00 84 31 35 2C 41 2C |15:.5.*....15,A,|
00000020: 41 24 3A 8B 41 B3 B2 31 A7 8E 00 3F 08 03 00 99 |A$:.A..1...?....|
00000030: 41 24 3A 8B 41 B2 36 32 B0 41 B2 36 33 A7 8E 00 |A$:.A.62.A.63...|
00000040: 45 08 04 00 90 00 7E 08 05 00 97 35 33 32 38 30 |E.....~....53280|
00000050: 2C 31 32 3A 97 35 33 32 38 31 2C 31 32 3A 99 C7 |,12:.53281,12:..|
00000060: 28 35 29 C7 28 38 29 C7 28 31 34 29 3A 5A 24 B2 |(5).(8).(14):Z$.|
00000070: C7 28 30 29 3A 44 44 24 B2 22 58 58 58 22 00 9F |.(0):DD$."XXX"..|
00000080: 08 0A 00 4E 47 B2 35 30 3A 8F 20 20 4E 47 3D 4E |...NG.50:. NG=N|
00000090: 55 4D 42 45 52 20 4F 46 20 47 52 41 44 45 53 00 |UMBER OF GRADES.|
000000A0: C2 08 14 00 4E 53 B2 35 30 3A 8F 20 20 4E 53 3D |....NS.50:. NS=|
000000B0: 4E 55 4D 42 45 52 20 4F 46 20 53 54 55 44 45 4E |NUMBER OF STUDEN|
000000C0: 54 53 00 F5 08 1E 00 86 20 53 4E 24 28 4E 53 29 |TS...... SN$(NS)|
000000D0: 2C 53 42 24 28 4E 47 29 2C 57 54 24 28 4E 47 29 |,SB$(NG),WT$(NG)|
000000E0: 2C 57 54 28 4E 47 29 2C 20 20 20 20 20 41 28 4E |,WT(NG), A(N|
000000F0: 53 2C 4E 47 29 00 14 09 28 00 96 A5 47 52 28 49 |S,NG)...(...GR(I|
00000100: 29 B2 B5 28 28 41 28 49 2C 4A 29 AD 32 2E 35 29 |)..((A(I,J).2.5)|
00000110: AA 2E 35 29 00 30 09 2D 00 96 A5 52 44 28 58 29 |..5).0.-...RD(X)|
00000120: B2 B5 28 31 30 30 AC 58 AA 2E 35 29 AD 31 30 30 |..(100.X..5).100|
00000130: 00 58 09 32 00 99 22 93 11 11 11 11 11 20 20 20 |.X.2.."...... |
00000140: 20 20 20 20 20 20 20 20 20 12 C7 D2 C1 C4 C5 C2 | .......|
00000150: CF CF CB 20 20 37 2E 30 00 7A 09 3C 00 99 22 11 |... 7.0.z.<..".|
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 D4 4F 4D 20 | .OM |
00000170: D2 49 43 48 41 52 44 53 4F 4E 00 9B 09 46 00 99 |.ICHARDSON...F..|
00000180: 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 C4 |". .|
00000190: 41 4E 41 20 C3 4F 4C 4C 45 47 45 00 BC 09 50 00 |ANA .OLLEGE...P.|
000001A0: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000001B0: CF 43 54 4F 42 45 52 20 31 39 38 33 00 CC 09 5A |.CTOBER 1983...Z|
000001C0: 00 81 49 B2 31 A4 31 30 30 30 3A 82 00 F5 09 64 |..I.1.1000:....d|
000001D0: 00 99 22 93 11 11 20 20 20 20 20 20 20 C7 52 41 |.."... .RA|
000001E0: 44 45 42 4F 4F 4B 20 37 2E 30 20 20 CF 43 54 20 |DEBOOK 7.0 .CT |
000001F0: 31 39 38 33 22 00 16 0A 6E 00 99 22 11 11 20 20 |1983"...n..".. |
00000200: 20 20 20 20 20 20 20 20 20 20 41 2E 20 20 4E 45 | A. NE|
00000210: 57 20 46 49 4C 45 00 3B 0A 78 00 99 22 11 20 20 |W FILE.;.x..". |
00000220: 20 20 20 20 20 20 20 20 20 20 42 2E 20 20 45 58 | B. EX|
00000230: 49 53 54 49 4E 47 20 46 49 4C 45 00 5C 0A 82 00 |ISTING FILE.\...|
00000240: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 43 |.". C|
00000250: 2E 20 20 54 45 52 4D 49 4E 41 54 45 00 7E 0A 8C |. TERMINATE.~..|
00000260: 00 99 22 11 11 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00000270: 50 52 45 53 53 20 41 20 4C 45 54 54 45 52 00 92 |PRESS A LETTER..|
00000280: 0A 96 00 47 53 24 B2 22 41 42 43 22 3A 8D 33 38 |...GS$."ABC":.38|
00000290: 30 30 00 9D 0A A0 00 8B 56 B2 33 A7 80 00 A7 0A |00......V.3.....|
000002A0: AA 00 8D 34 34 30 30 00 C8 0A 2C 01 99 22 93 11 |...4400...,.."..|
000002B0: C7 52 41 44 45 42 4F 4F 4B 20 37 2E 30 20 20 CF |.RADEBOOK 7.0 .|
000002C0: 43 54 20 31 39 38 33 22 00 E5 0A 36 01 99 22 11 |CT 1983"...6..".|
000002D0: 11 43 55 52 52 45 4E 54 20 46 49 4C 45 20 49 53 |.CURRENT FILE IS|
000002E0: 20 12 22 46 24 00 01 0B 40 01 99 22 11 11 20 20 | ."F$...@..".. |
000002F0: 20 41 2E 20 20 45 4E 54 45 52 20 47 52 41 44 45 | A. ENTER GRADE|
00000300: 53 00 1E 0B 4A 01 99 22 11 20 20 20 42 2E 20 20 |S...J..". B. |
00000310: 49 4E 53 50 45 43 54 20 47 52 41 44 45 53 00 38 |INSPECT GRADES.8|
00000320: 0B 54 01 99 22 11 20 20 20 43 2E 20 20 4C 49 53 |.T..". C. LIS|
00000330: 54 20 47 52 41 44 45 53 00 57 0B 5E 01 99 22 11 |T GRADES.W.^..".|
00000340: 20 20 20 44 2E 20 20 43 41 4C 43 55 4C 41 54 45 | D. CALCULATE|
00000350: 20 47 52 41 44 45 53 00 76 0B 68 01 99 22 11 20 | GRADES.v.h..". |
00000360: 20 20 45 2E 20 20 43 4C 41 53 53 2F 45 4E 54 52 | E. CLASS/ENTR|
00000370: 59 20 4C 49 53 54 00 91 0B 72 01 99 22 11 20 20 |Y LIST...r..". |
00000380: 20 46 2E 20 20 41 4E 4F 54 48 45 52 20 46 49 4C | F. ANOTHER FIL|
00000390: 45 00 A9 0B 7C 01 99 22 11 20 20 20 47 2E 20 20 |E...|..". G. |
000003A0: 54 45 52 4D 49 4E 41 54 45 00 C6 0B 86 01 47 53 |TERMINATE.....GS|
000003B0: 24 B2 22 41 42 43 44 45 46 47 22 3A 8D 33 38 30 |$."ABCDEFG":.380|
000003C0: 30 3A 56 56 B2 56 00 EA 0B 8B 01 91 56 89 36 30 |0:VV.V......V.60|
000003D0: 30 2C 37 30 30 2C 37 30 30 2C 31 37 30 30 2C 34 |0,700,700,1700,4|
000003E0: 30 30 2C 35 30 30 2C 35 30 30 00 2D 0C 90 01 99 |00,500,500.-....|
000003F0: 22 11 CC 49 53 54 20 42 59 20 12 53 92 54 55 44 |"..IST BY .S.TUD|
00000400: 45 4E 54 20 4F 52 20 12 45 92 4E 54 52 59 22 3A |ENT OR .E.NTRY":|
00000410: 47 53 24 B2 22 53 45 22 3A 4A B2 30 3A 8D 33 38 |GS$."SE":J.0:.38|
00000420: 30 30 3A 91 56 89 34 31 30 2C 34 35 30 00 59 0C |00:.V.410,450.Y.|
00000430: 9A 01 8D 34 34 30 3A 8D 33 39 30 30 3A 4B 4B B2 |...440:.3900:KK.|
00000440: 30 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0: |
00000450: 20 20 81 4B B2 31 A4 4E 53 00 71 0C 9B 01 49 B2 | .K.1.NS.q...I.|
00000460: 4B 3A 8D 35 31 30 30 3A 8B 46 47 B2 31 A7 34 33 |K:.5100:.FG.1.43|
00000470: 30 00 A6 0C 9C 01 99 53 4E 24 3B 3A 4B 4B B2 4B |0......SN$;:KK.K|
00000480: 4B AA 31 3A 20 20 20 20 20 20 20 20 20 20 20 20 |K.1: |
00000490: 20 20 20 20 20 20 20 20 20 20 8B 4B 4B B2 31 A7 | .KK.1.|
000004A0: 99 A3 32 30 29 3B 00 B7 0C 9D 01 8B 4B 4B B2 32 |..20);......KK.2|
000004B0: A7 4B 4B B2 30 3A 99 00 E2 0C A4 01 4A B2 4A AA |.KK.0:......J.J.|
000004C0: 31 3A 8B 4A B2 34 30 A7 8D 33 39 30 30 3A 8D 33 |1:.J.40..3900:.3|
000004D0: 37 30 30 3A 4A B2 30 3A 8D 34 34 30 3A 8D 33 39 |700:J.0:.440:.39|
000004E0: 30 30 00 ED 0C AE 01 82 3A 89 34 38 30 00 09 0D |00......:.480...|
000004F0: B8 01 99 22 93 C3 4C 41 53 53 20 4C 49 53 54 20 |..."..LASS LIST |
00000500: 4F 46 20 12 22 46 24 3A 8E 00 36 0D C2 01 8D 34 |OF ."F$:..6....4|
00000510: 39 30 3A 8D 33 39 30 30 3A 81 4B B2 31 A4 4E 47 |90:.3900:.K.1.NG|
00000520: A9 32 3A 99 53 42 24 28 4B 29 A3 32 30 29 53 42 |.2:.SB$(K).20)SB|
00000530: 24 28 4B AA 31 29 00 61 0D CC 01 4A B2 4A AA 31 |$(K.1).a...J.J.1|
00000540: 3A 8B 4A B2 32 30 A7 8D 33 39 30 30 3A 8D 33 37 |:.J.20..3900:.37|
00000550: 30 30 3A 4A B2 30 3A 8D 34 39 30 3A 8D 33 39 30 |00:J.0:.490:.390|
00000560: 30 00 67 0D D6 01 82 00 7C 0D E0 01 8D 33 39 30 |0.g.....|....390|
00000570: 30 3A 8D 33 37 30 30 3A 89 33 30 30 00 9A 0D EA |0:.3700:.300....|
00000580: 01 99 22 93 D3 55 42 4A 45 43 54 20 4C 49 53 54 |.."..UBJECT LIST|
00000590: 20 4F 46 20 12 22 46 24 3A 8E 00 AA 0D F4 01 8B | OF ."F$:.......|
000005A0: 53 44 B2 31 A7 8D 34 39 30 30 00 B7 0D FE 01 8B |SD.1..4900......|
000005B0: 56 B2 36 A7 31 30 30 00 BD 0D 08 02 80 00 D0 0D |V.6.100.........|
000005C0: 58 02 8F 20 20 47 52 41 44 45 20 45 4E 54 52 59 |X.. GRADE ENTRY|
000005D0: 00 EF 0D 62 02 99 22 93 C7 D2 C1 C4 C5 C2 CF CF |...b..".........|
000005E0: CB 20 45 4E 54 52 59 20 46 4F 52 20 22 46 24 00 |. ENTRY FOR "F$.|
000005F0: 1B 0E 6C 02 99 22 11 11 4C 41 53 54 20 45 4E 54 |..l.."..LAST ENT|
00000600: 52 59 20 57 41 53 20 23 22 4E 47 AB 31 22 9D 3A |RY WAS #"NG.1".:|
00000610: 20 22 53 42 24 28 4E 47 AB 31 29 00 46 0E 76 02 | "SB$(NG.1).F.v.|
00000620: 99 22 11 54 49 54 4C 45 20 46 4F 52 20 54 48 49 |.".TITLE FOR THI|
00000630: 53 20 45 4E 54 52 59 20 23 22 4E 47 22 9D 3A 11 |S ENTRY #"NG".:.|
00000640: 22 3A 53 44 B2 31 00 60 0E 80 02 85 22 20 20 20 |":SD.1.`...." |
00000650: 20 20 20 2A 9D 9D 9D 22 3B 53 42 24 28 4E 47 29 | *...";SB$(NG)|
00000660: 00 84 0E 8A 02 99 22 11 C5 4E 54 45 52 20 47 52 |......"..NTER GR|
00000670: 41 44 45 20 46 4F 52 20 45 41 43 48 20 53 54 55 |ADE FOR EACH STU|
00000680: 44 45 4E 54 00 B8 0E 94 02 81 49 B2 31 A4 4E 53 |DENT......I.1.NS|
00000690: 3A 8D 35 31 30 30 3A 8B 46 47 B2 31 20 20 20 20 |:.5100:.FG.1 |
000006A0: 20 20 20 20 20 20 20 20 20 A7 41 28 49 2C 4E 47 | .A(I,NG|
000006B0: 29 B2 30 3A 89 36 39 35 00 E8 0E 99 02 99 22 13 |).0:.695......".|
000006C0: 11 11 11 11 11 11 11 11 11 11 11 22 53 4E 24 28 |..........."SN$(|
000006D0: 49 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |I)" |
000006E0: 20 20 20 20 20 11 11 22 00 FA 0E 9E 02 85 22 20 | .."......" |
000006F0: 20 20 2A 9D 9D 9D 22 3B 47 24 00 3B 0F A8 02 41 | *...";G$.;...A|
00000700: 28 49 2C 4E 47 29 B2 B5 28 32 2E 35 AC C5 28 47 |(I,NG)..(2.5..(G|
00000710: 24 29 29 3A 20 20 20 20 20 20 20 20 20 20 20 20 |$)): |
00000720: 20 20 20 8B 41 28 49 2C 4E 47 29 B1 32 35 35 A7 | .A(I,NG).255.|
00000730: 41 28 49 2C 4E 47 29 B2 32 35 35 00 5F 0F B2 02 |A(I,NG).255._...|
00000740: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000760: 72 0F B7 02 82 3A 4E 47 B2 4E 47 AA 31 3A 89 33 |r....:NG.NG.1:.3|
00000770: 30 30 00 95 0F BC 02 8F 20 20 49 4E 53 50 45 43 |00...... INSPEC|
00000780: 54 2F 43 4F 52 52 45 43 54 2F 4C 49 53 54 20 47 |T/CORRECT/LIST G|
00000790: 52 41 44 45 53 00 AE 0F C6 02 99 22 93 C7 D2 C1 |RADES......"....|
000007A0: C4 C5 C2 CF CF CB 20 46 4F 52 20 22 46 24 00 D5 |...... FOR "F$..|
000007B0: 0F D0 02 8B 56 B2 32 A7 99 22 11 11 C9 4E 53 50 |....V.2.."...NSP|
000007C0: 45 43 54 2F 43 4F 52 52 45 43 54 20 47 52 41 44 |ECT/CORRECT GRAD|
000007D0: 45 53 20 42 59 00 F2 0F DA 02 8B 56 B2 33 A7 99 |ES BY......V.3..|
000007E0: 22 11 11 4C 49 53 54 20 47 52 41 44 45 53 20 46 |"..LIST GRADES F|
000007F0: 4F 52 00 09 10 E4 02 99 22 11 11 20 20 20 20 20 |OR......".. |
00000800: 12 53 92 54 55 44 45 4E 54 00 1E 10 EE 02 99 22 |.S.TUDENT......"|
00000810: 11 11 20 20 20 20 20 12 45 92 4E 54 52 59 00 31 |.. .E.NTRY.1|
00000820: 10 F8 02 47 53 24 B2 22 53 45 22 3A 8D 33 38 30 |...GS$."SE":.380|
00000830: 30 00 42 10 02 03 91 56 8D 33 35 30 30 2C 33 36 |0.B....V.3500,36|
00000840: 30 30 00 53 10 0C 03 8B 53 53 24 B2 22 2A 22 A7 |00.S....SS$."*".|
00000850: 33 30 30 00 84 10 16 03 8B 56 56 B2 33 A7 99 22 |300......VV.3.."|
00000860: 93 C7 52 41 44 45 53 20 46 4F 52 20 22 3B 20 20 |..RADES FOR "; |
00000870: 20 20 20 20 20 20 20 3A 91 56 89 31 30 30 30 2C | :.V.1000,|
00000880: 31 31 30 30 00 AB 10 20 03 99 22 93 C7 52 41 44 |1100... .."..RAD|
00000890: 45 20 49 4E 53 50 45 43 54 49 4F 4E 2F 43 4F 52 |E INSPECTION/COR|
000008A0: 52 45 43 54 49 4F 4E 20 46 4F 52 00 C6 10 2A 03 |RECTION FOR...*.|
000008B0: 99 22 11 20 20 20 20 22 3B 3A 91 56 89 31 32 30 |.". ";:.V.120|
000008C0: 30 2C 31 35 30 30 00 E4 10 E8 03 8F 20 4C 49 53 |0,1500...... LIS|
000008D0: 54 20 47 52 41 44 45 53 20 46 4F 52 20 53 54 55 |T GRADES FOR STU|
000008E0: 44 45 4E 54 00 F8 10 F2 03 99 53 4E 24 28 49 29 |DENT......SN$(I)|
000008F0: 22 11 22 3A 43 54 B2 30 00 04 11 FC 03 81 4A B2 |".":CT.0......J.|
00000900: 31 A4 4E 47 00 1A 11 06 04 99 53 42 24 28 4A 29 |1.NG......SB$(J)|
00000910: A3 32 30 29 A5 47 52 28 49 29 00 52 11 10 04 43 |.20).GR(I).R...C|
00000920: 54 B2 43 54 AA 31 3A 8B 43 54 B2 32 30 A7 43 54 |T.CT.1:.CT.20.CT|
00000930: B2 30 3A 8D 33 39 30 30 3A 8D 33 37 30 30 3A 8D |.0:.3900:.3700:.|
00000940: 33 39 30 30 3A 99 22 11 22 53 4E 24 28 49 29 22 |3900:."."SN$(I)"|
00000950: 11 22 00 69 11 1A 04 82 3A 8D 33 39 30 30 3A 8D |.".i....:.3900:.|
00000960: 33 37 30 30 3A 89 33 30 30 00 87 11 4C 04 8F 20 |3700:.300...L.. |
00000970: 4C 49 53 54 20 47 52 41 44 45 53 20 46 4F 52 20 |LIST GRADES FOR |
00000980: 53 55 42 4A 45 43 54 00 9F 11 56 04 99 53 42 24 |SUBJECT...V..SB$|
00000990: 28 49 29 22 11 22 3A 43 54 B2 30 3A 4A B2 49 00 |(I)".":CT.0:J.I.|
000009A0: AB 11 60 04 81 49 B2 31 A4 4E 53 00 C0 11 65 04 |..`..I.1.NS...e.|
000009B0: 8D 35 31 30 30 3A 8B 46 47 B2 31 A7 31 31 35 30 |.5100:.FG.1.1150|
000009C0: 00 D6 11 6A 04 99 53 4E 24 28 49 29 A3 32 30 29 |...j..SN$(I).20)|
000009D0: A5 47 52 28 49 29 00 09 12 74 04 43 54 B2 43 54 |.GR(I)...t.CT.CT|
000009E0: AA 31 3A 8B 43 54 B2 32 30 A7 43 54 B2 30 3A 8D |.1:.CT.20.CT.0:.|
000009F0: 33 39 30 30 3A 8D 33 37 30 30 3A 99 22 93 11 22 |3900:.3700:.".."|
00000A00: 53 42 24 28 4A 29 22 11 22 00 20 12 7E 04 82 3A |SB$(J)".". .~..:|
00000A10: 8D 33 39 30 30 3A 8D 33 37 30 30 3A 89 33 30 30 |.3900:.3700:.300|
00000A20: 00 40 12 B0 04 8F 20 49 4E 53 50 45 43 54 20 47 |.@.... INSPECT G|
00000A30: 52 41 44 45 53 20 42 59 20 53 54 55 44 45 4E 54 |RADES BY STUDENT|
00000A40: 00 4C 12 BA 04 99 53 4E 24 28 49 29 00 77 12 C4 |.L....SN$(I).w..|
00000A50: 04 99 22 11 11 50 52 45 53 53 20 12 52 45 54 55 |.."..PRESS .RETU|
00000A60: 52 4E 92 20 49 46 20 47 52 41 44 45 20 49 53 20 |RN. IF GRADE IS |
00000A70: 43 4F 52 52 45 43 54 00 98 12 D8 04 99 22 11 20 |CORRECT......". |
00000A80: 20 20 20 20 20 50 52 45 53 53 20 12 58 92 20 54 | PRESS .X. T|
00000A90: 4F 20 43 48 41 4E 47 45 00 DB 12 E2 04 81 4A B2 |O CHANGE......J.|
00000AA0: 31 A4 4E 47 3A 99 22 13 11 11 11 11 11 11 11 11 |1.NG:.".........|
00000AB0: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 20 20 20 20 20 20 20 22 00 F4 12 E7 04 | ".....|
00000AE0: 99 22 91 22 53 42 24 28 4A 29 A3 32 30 29 A5 47 |."."SB$(J).20).G|
00000AF0: 52 28 49 29 00 0C 13 EC 04 47 53 24 B2 22 58 22 |R(I).....GS$."X"|
00000B00: AA C7 28 31 33 29 3A 8D 33 38 30 30 00 1A 13 F6 |..(13):.3800....|
00000B10: 04 8B 56 B2 32 A7 31 33 31 30 00 3B 13 00 05 85 |..V.2.1310.;....|
00000B20: 22 11 43 4F 52 52 45 43 54 20 47 52 41 44 45 20 |".CORRECT GRADE |
00000B30: 9D 20 20 2A 9D 9D 9D 22 3B 41 24 00 7D 13 0A 05 |. *...";A$.}...|
00000B40: 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B60: 20 20 20 20 20 20 20 20 22 3A 41 28 49 2C 4A 29 | ":A(I,J)|
00000B70: B2 B5 28 32 2E 35 AC C5 28 41 24 29 29 00 9D 13 |..(2.5..(A$))...|
00000B80: 14 05 53 44 B2 31 3A 8B 41 28 49 2C 4A 29 B1 32 |..SD.1:.A(I,J).2|
00000B90: 35 35 A7 41 28 49 2C 4A 29 B2 32 35 35 00 A8 13 |55.A(I,J).255...|
00000BA0: 1E 05 82 3A 89 33 30 30 00 C6 13 DC 05 8F 20 49 |...:.300...... I|
00000BB0: 4E 53 50 45 43 54 20 47 52 41 44 45 53 20 42 59 |NSPECT GRADES BY|
00000BC0: 20 45 4E 54 52 59 00 D6 13 E6 05 4A B2 49 3A 99 | ENTRY.....J.I:.|
00000BD0: 53 42 24 28 4A 29 00 01 14 F0 05 99 22 11 11 50 |SB$(J)......"..P|
00000BE0: 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 49 46 |RESS .RETURN. IF|
00000BF0: 20 47 52 41 44 45 20 49 53 20 43 4F 52 52 45 43 | GRADE IS CORREC|
00000C00: 54 00 22 14 04 06 99 22 11 20 20 20 20 20 20 50 |T."....". P|
00000C10: 52 45 53 53 20 12 58 92 20 54 4F 20 43 48 41 4E |RESS .X. TO CHAN|
00000C20: 47 45 00 3F 14 0E 06 81 49 B2 31 A4 4E 53 3A 8D |GE.?....I.1.NS:.|
00000C30: 35 31 30 30 3A 8B 46 47 B2 31 A7 31 36 32 30 00 |5100:.FG.1.1620.|
00000C40: 7A 14 18 06 99 22 13 11 11 11 11 11 11 11 11 11 |z...."..........|
00000C50: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C70: 20 20 20 20 20 20 20 20 20 22 00 93 14 1D 06 99 | "......|
00000C80: 22 91 22 53 4E 24 28 49 29 A3 32 30 29 A5 47 52 |"."SN$(I).20).GR|
00000C90: 28 49 29 00 AB 14 22 06 47 53 24 B2 22 58 22 AA |(I)...".GS$."X".|
00000CA0: C7 28 31 33 29 3A 8D 33 38 30 30 00 B9 14 2C 06 |.(13):.3800...,.|
00000CB0: 8B 56 B2 32 A7 31 36 32 30 00 DA 14 36 06 85 22 |.V.2.1620...6.."|
00000CC0: 11 43 4F 52 52 45 43 54 20 47 52 41 44 45 20 9D |.CORRECT GRADE .|
00000CD0: 20 20 2A 9D 9D 9D 22 3B 41 24 00 1C 15 40 06 99 | *...";A$...@..|
00000CE0: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D00: 20 20 20 20 20 20 20 22 3A 41 28 49 2C 4A 29 B2 | ":A(I,J).|
00000D10: B5 28 32 2E 35 AC C5 28 41 24 29 29 00 3C 15 4A |.(2.5..(A$)).<.J|
00000D20: 06 53 44 B2 31 3A 8B 41 28 49 2C 4A 29 B1 32 35 |.SD.1:.A(I,J).25|
00000D30: 35 A7 41 28 49 2C 4A 29 B2 32 35 35 00 47 15 54 |5.A(I,J).255.G.T|
00000D40: 06 82 3A 89 33 30 30 00 90 15 A4 06 8F 20 20 43 |..:.300...... C|
00000D50: 41 4C 43 55 4C 41 54 45 20 47 52 41 44 45 53 20 |ALCULATE GRADES |
00000D60: 46 52 4F 4D 20 44 41 54 41 20 20 20 20 20 20 20 |FROM DATA |
00000D70: 20 20 20 20 20 20 20 54 48 49 53 20 50 41 52 54 | THIS PART|
00000D80: 2D 2D 53 45 4C 45 43 54 20 57 45 49 47 48 54 53 |--SELECT WEIGHTS|
00000D90: 00 AB 15 AE 06 8D 31 38 30 30 3A 4B B2 30 3A 8F |......1800:K.0:.|
00000DA0: 20 50 52 49 4E 54 20 48 45 41 44 00 C6 15 B8 06 | PRINT HEAD.....|
00000DB0: 81 4A B2 31 A4 4E 47 3A 4C 4C B2 4A 3A 4C B2 4A |.J.1.NG:LL.J:L.J|
00000DC0: 3A 8D 31 38 35 30 00 DF 15 C2 06 4B B2 4B AA 31 |:.1850.....K.K.1|
00000DD0: 3A 8B 4B B2 38 A7 8D 31 39 30 30 3A 4B B2 30 00 |:.K.8..1900:K.0.|
00000DE0: EB 15 CC 06 82 3A 8D 31 39 30 30 00 F5 15 D6 06 |.....:.1900.....|
00000DF0: 89 32 30 30 30 00 0F 16 08 07 99 22 93 11 C7 D2 |.2000......"....|
00000E00: C1 C4 C5 C2 CF CF CB 20 46 4F 52 20 22 46 24 00 |....... FOR "F$.|
00000E10: 41 16 12 07 99 22 11 20 20 C3 55 52 52 45 4E 54 |A....". .URRENT|
00000E20: 20 57 45 49 47 48 54 49 4E 47 20 46 41 43 54 4F | WEIGHTING FACTO|
00000E30: 52 53 22 20 20 20 20 3A 8D 33 39 30 30 3A 99 3A |RS" :.3900:.:|
00000E40: 8E 00 57 16 3A 07 41 24 B2 C9 28 22 20 20 22 AA |..W.:.A$..(" ".|
00000E50: C4 28 4C 29 2C 33 29 00 73 16 44 07 99 41 24 A3 |.(L),3).s.D..A$.|
00000E60: 31 30 29 53 42 24 28 4C 29 A3 33 30 29 57 54 24 |10)SB$(L).30)WT$|
00000E70: 28 4C 29 00 79 16 4E 07 8E 00 95 16 6C 07 8F 20 |(L).y.N.....l.. |
00000E80: 50 41 55 53 45 20 49 4E 20 57 45 49 47 48 54 20 |PAUSE IN WEIGHT |
00000E90: 43 48 45 43 4B 00 D2 16 76 07 8D 33 39 30 30 3A |CHECK...v..3900:|
00000EA0: 99 22 20 41 4E 59 20 43 48 41 4E 47 45 53 20 12 |." ANY CHANGES .|
00000EB0: 59 92 2F 12 4E 22 20 20 20 3A 47 53 24 B2 22 59 |Y./.N" :GS$."Y|
00000EC0: 4E 22 3A 8D 33 38 30 30 3A 8B 56 B2 32 A7 31 39 |N":.3800:.V.2.19|
00000ED0: 37 30 00 EF 16 80 07 85 22 11 57 48 49 43 48 20 |70......".WHICH |
00000EE0: 4F 4E 45 20 9D 20 20 2A 9D 9D 9D 22 3B 41 24 00 |ONE . *...";A$.|
00000EF0: 17 17 8A 07 41 B2 C5 28 41 24 29 3A 8B 41 B2 30 |....A..(A$):.A.0|
00000F00: A7 99 22 91 91 91 22 3A 20 20 20 20 20 20 20 20 |.."...": |
00000F10: 20 20 89 31 39 32 30 00 38 17 94 07 99 22 11 43 | .1920.8....".C|
00000F20: 55 52 52 45 4E 54 20 57 45 49 47 48 54 20 49 53 |URRENT WEIGHT IS|
00000F30: 20 22 57 54 24 28 41 29 00 5A 17 9E 07 85 22 11 | "WT$(A).Z....".|
00000F40: 4E 45 57 20 57 45 49 47 48 54 20 9D 20 20 2A 9D |NEW WEIGHT . *.|
00000F50: 9D 9D 22 3B 57 54 24 28 41 29 00 96 17 A8 07 99 |..";WT$(A)......|
00000F60: 22 11 4D 4F 52 45 20 43 48 41 4E 47 45 53 20 12 |".MORE CHANGES .|
00000F70: 59 92 2F 12 4E 22 3A 20 20 20 20 20 20 20 20 20 |Y./.N": |
00000F80: 20 20 20 53 44 B2 31 3A 47 53 24 B2 22 59 4E 22 | SD.1:GS$."YN"|
00000F90: 3A 8D 33 38 30 30 00 A7 17 B2 07 8D 31 38 30 30 |:.3800......1800|
00000FA0: 3A 8B 56 B2 32 A7 8E 00 C0 17 BC 07 81 4C B2 4C |:.V.2........L.L|
00000FB0: 4C AA 31 AB 4B A4 4C 4C 3A 8D 31 38 35 30 3A 82 |L.1.K.LL:.1850:.|
00000FC0: 00 CA 17 C6 07 89 31 39 30 30 00 FD 17 D0 07 99 |......1900......|
00000FD0: 22 11 11 CE 4F 52 4D 41 4C 49 5A 49 4E 47 20 57 |"...ORMALIZING W|
00000FE0: 45 49 47 48 54 53 2C 20 50 4C 45 41 53 45 20 53 |EIGHTS, PLEASE S|
00000FF0: 54 41 4E 44 20 42 59 22 3A 53 55 B2 30 00 32 18 |TAND BY":SU.0.2.|
00001000: DA 07 81 4A B2 31 A4 4E 47 3A 57 54 28 4A 29 B2 |...J.1.NG:WT(J).|
00001010: C5 28 57 54 24 28 4A 29 29 20 20 20 20 20 20 20 |.(WT$(J)) |
00001020: 20 20 20 20 3A 53 55 B2 53 55 AA 57 54 28 4A 29 | :SU.SU.WT(J)|
00001030: 3A 82 00 4F 18 E4 07 81 4A B2 31 A4 4E 47 3A 57 |:..O....J.1.NG:W|
00001040: 54 28 4A 29 B2 57 54 28 4A 29 AD 53 55 3A 82 00 |T(J).WT(J).SU:..|
00001050: 6B 18 34 08 99 22 93 11 11 C7 D2 C1 C4 C5 C2 CF |k.4.."..........|
00001060: CF CB 20 20 46 4F 52 20 22 46 24 00 9B 18 3E 08 |.. FOR "F$...>.|
00001070: 99 22 11 20 20 C7 52 41 44 45 20 43 41 4C 43 55 |.". .RADE CALCU|
00001080: 4C 41 54 49 4F 4E 2D 2D 57 45 49 47 48 54 45 44 |LATION--WEIGHTED|
00001090: 20 52 45 53 55 4C 54 20 46 4F 52 00 B3 18 48 08 | RESULT FOR...H.|
000010A0: 99 22 11 20 20 20 20 20 20 12 53 92 54 55 44 45 |.". .S.TUDE|
000010B0: 4E 54 53 00 CA 18 52 08 99 22 11 20 20 20 20 20 |NTS...R..". |
000010C0: 20 12 45 92 4E 54 52 49 45 53 00 E7 18 5C 08 47 | .E.NTRIES...\.G|
000010D0: 53 24 B2 22 53 45 22 3A 8D 33 38 30 30 3A 8B 56 |S$."SE":.3800:.V|
000010E0: B2 32 A7 32 35 30 30 00 FF 18 98 08 8F 20 47 52 |.2.2500...... GR|
000010F0: 41 44 45 20 46 4F 52 20 53 54 55 44 45 4E 54 00 |ADE FOR STUDENT.|
00001100: 0D 19 9D 08 99 3A 8D 33 39 30 30 3A 99 00 22 19 |.....:.3900:..".|
00001110: A2 08 99 22 11 20 20 20 20 20 20 12 43 92 4C 41 |...". .C.LA|
00001120: 53 53 00 3C 19 AC 08 99 22 11 20 20 20 20 20 20 |SS.<....". |
00001130: 12 49 92 4E 44 49 56 49 44 55 41 4C 00 4F 19 B6 |.I.NDIVIDUAL.O..|
00001140: 08 47 53 24 B2 22 43 49 22 3A 8D 33 38 30 30 00 |.GS$."CI":.3800.|
00001150: 6A 19 C0 08 99 22 93 11 D7 45 49 47 48 54 45 44 |j...."...EIGHTED|
00001160: 20 47 52 41 44 45 20 46 4F 52 00 78 19 CA 08 8B | GRADE FOR.x....|
00001170: 56 B2 31 A7 32 34 30 30 00 8F 19 D4 08 8D 33 35 |V.1.2400......35|
00001180: 30 30 3A 8B 53 53 24 B2 22 2A 22 A7 33 30 30 00 |00:.SS$."*".300.|
00001190: A4 19 DE 08 8D 32 33 30 30 3A 99 22 11 22 53 4E |.....2300:."."SN|
000011A0: 24 28 49 29 00 B9 19 E8 08 99 22 11 11 20 20 20 |$(I)......".. |
000011B0: 49 53 22 53 55 22 11 11 22 00 C8 19 F2 08 8D 33 |IS"SU".."......3|
000011C0: 37 30 30 3A 89 33 30 30 00 D9 19 FC 08 53 55 B2 |700:.300.....SU.|
000011D0: 30 3A 81 4A B2 31 A4 4E 47 00 F0 19 06 09 53 55 |0:.J.1.NG.....SU|
000011E0: B2 53 55 AA A5 47 52 28 49 29 AC 57 54 28 4A 29 |.SU..GR(I).WT(J)|
000011F0: 00 03 1A 10 09 82 3A 53 55 B2 A5 52 44 28 53 55 |......:SU..RD(SU|
00001200: 29 3A 8E 00 1A 1A 60 09 8D 33 33 35 30 3A 8F 20 |):....`..3350:. |
00001210: 20 53 45 54 20 53 54 41 54 53 00 46 1A 6A 09 99 | SET STATS.F.j..|
00001220: 22 11 22 3A 4B B2 30 3A 81 49 B2 31 A4 4E 53 3A |".":K.0:.I.1.NS:|
00001230: 8D 35 31 30 30 20 20 20 20 20 20 3A 8B 46 47 B2 |.5100 :.FG.|
00001240: 31 A7 32 34 35 30 00 5E 1A 74 09 8D 32 33 30 30 |1.2450.^.t..2300|
00001250: 3A 99 53 4E 24 28 49 29 A3 32 30 29 53 55 00 68 |:.SN$(I).20)SU.h|
00001260: 1A 7E 09 8D 33 34 30 30 00 98 1A 88 09 4B B2 4B |.~..3400.....K.K|
00001270: AA 31 3A 8B 4B B2 31 35 A7 8D 33 39 30 30 3A 8D |.1:.K.15..3900:.|
00001280: 33 37 30 30 20 20 20 20 3A 8D 33 39 30 30 3A 99 |3700 :.3900:.|
00001290: 22 93 11 22 3A 4B B2 30 00 9E 1A 92 09 82 00 A8 |"..":K.0........|
000012A0: 1A 9C 09 8D 33 34 35 30 00 CA 1A A6 09 99 22 11 |....3450......".|
000012B0: 11 20 20 41 56 47 20 57 45 49 47 48 54 45 44 20 |. AVG WEIGHTED |
000012C0: 47 52 41 44 45 20 3D 22 41 56 00 F8 1A B0 09 99 |GRADE ="AV......|
000012D0: 22 11 20 20 53 54 41 4E 44 41 52 44 20 44 45 56 |". STANDARD DEV|
000012E0: 49 41 54 49 4F 4E 20 3D 22 44 56 20 20 20 20 20 |IATION ="DV |
000012F0: 20 20 3A 99 22 11 11 22 00 07 1B BA 09 8D 33 37 | :.".."......37|
00001300: 30 30 3A 89 33 30 30 00 22 1B C4 09 99 22 93 11 |00:.300."...."..|
00001310: 11 C7 D2 C1 C4 C5 C2 CF CF CB 20 46 4F 52 20 22 |.......... FOR "|
00001320: 46 24 00 39 1B CE 09 8D 33 36 30 30 3A 8B 53 53 |F$.9....3600:.SS|
00001330: 24 B2 22 2A 22 A7 33 30 30 00 43 1B D8 09 8D 33 |$."*".300.C....3|
00001340: 33 35 30 00 53 1B E2 09 4A B2 49 3A 81 49 B2 31 |350.S...J.I:.I.1|
00001350: A4 4E 53 00 68 1B EC 09 8D 35 31 30 30 3A 8B 46 |.NS.h....5100:.F|
00001360: 47 B2 31 A7 32 35 37 30 00 76 1B F6 09 53 55 B2 |G.1.2570.v...SU.|
00001370: A5 47 52 28 49 29 00 80 1B 00 0A 8D 33 34 30 30 |.GR(I)......3400|
00001380: 00 87 1B 0A 0A 82 49 00 A0 1B 14 0A 99 22 11 46 |......I......".F|
00001390: 4F 52 20 45 4E 54 52 59 20 22 53 42 24 28 4A 29 |OR ENTRY "SB$(J)|
000013A0: 00 AA 1B 1E 0A 8D 33 34 35 30 00 C5 1B 28 0A 99 |......3450...(..|
000013B0: 22 11 20 41 56 45 52 41 47 45 20 47 52 41 44 45 |". AVERAGE GRADE|
000013C0: 20 3D 22 41 56 00 E4 1B 32 0A 99 22 11 20 20 53 | ="AV...2..". S|
000013D0: 54 41 4E 44 41 52 44 20 44 45 56 20 3D 22 44 56 |TANDARD DEV ="DV|
000013E0: 22 11 11 22 00 F3 1B 3C 0A 8D 33 37 30 30 3A 89 |".."...<..3700:.|
000013F0: 33 30 30 00 FC 1B E3 0C 89 33 30 30 00 12 1C 16 |300......300....|
00001400: 0D 8F 20 20 49 4E 49 54 20 46 4F 52 20 53 54 41 |.. INIT FOR STA|
00001410: 54 53 00 24 1C 20 0D 53 58 B2 30 3A 58 32 B2 30 |TS.$. .SX.0:X2.0|
00001420: 3A 4E B2 30 00 2A 1C 2A 0D 8E 00 3C 1C 48 0D 8F |:N.0.*.*...<.H..|
00001430: 20 20 53 54 41 54 20 45 4E 54 52 59 00 5B 1C 52 | STAT ENTRY.[.R|
00001440: 0D 53 58 B2 53 58 AA 53 55 3A 58 32 B2 58 32 AA |.SX.SX.SU:X2.X2.|
00001450: 53 55 AC 53 55 3A 4E B2 4E AA 31 00 61 1C 5C 0D |SU.SU:N.N.1.a.\.|
00001460: 8E 00 73 1C 7A 0D 8F 20 20 53 54 41 54 20 43 41 |..s.z.. STAT CA|
00001470: 4C 43 4E 00 98 1C 84 0D 41 56 B2 53 58 AD 4E 3A |LCN.....AV.SX.N:|
00001480: 44 56 B2 BA 28 28 58 32 AB 4E AC 41 56 AC 41 56 |DV..((X2.N.AV.AV|
00001490: 29 AD 28 4E AB 31 29 29 00 B2 1C 8E 0D 41 56 B2 |).(N.1)).....AV.|
000014A0: A5 52 44 28 41 56 29 3A 44 56 B2 A5 52 44 28 44 |.RD(AV):DV..RD(D|
000014B0: 56 29 00 B8 1C 98 0D 8E 00 CB 1C AC 0D 8F 20 20 |V)............ |
000014C0: 4E 41 4D 45 20 53 45 41 52 43 48 00 E8 1C B6 0D |NAME SEARCH.....|
000014D0: 85 22 11 C5 4E 54 45 52 20 4E 41 4D 45 20 20 2A |."..NTER NAME *|
000014E0: 9D 9D 9D 22 3B 53 53 24 00 F7 1C C0 0D 8B 53 53 |...";SS$......SS|
000014F0: 24 B2 22 2A 22 A7 8E 00 05 1D CA 0D 4C 4C B2 C3 |$."*".......LL..|
00001500: 28 53 53 24 29 00 29 1D D4 0D 81 49 B2 31 A4 4E |(SS$).)....I.1.N|
00001510: 53 3A 4B B2 C3 28 53 4E 24 28 49 29 29 AB 4C 4C |S:K..(SN$(I)).LL|
00001520: AA 31 3A 81 4A B2 31 A4 4B 00 43 1D DE 0D 8B 53 |.1:.J.1.K.C....S|
00001530: 53 24 B2 CA 28 53 4E 24 28 49 29 2C 4A 2C 4C 4C |S$..(SN$(I),J,LL|
00001540: 29 A7 8E 00 67 1D E8 0D 82 4A 3A 82 49 3A 99 22 |)...g....J:.I:."|
00001550: 11 22 53 53 24 22 20 4E 4F 54 20 49 4E 20 22 46 |."SS$" NOT IN "F|
00001560: 24 3A 89 33 35 31 30 00 7D 1D 10 0E 8F 20 20 53 |$:.3510.}.... S|
00001570: 55 42 4A 45 43 54 20 53 45 41 52 43 48 00 9D 1D |UBJECT SEARCH...|
00001580: 1A 0E 85 22 11 C5 4E 54 45 52 20 53 55 42 4A 45 |..."..NTER SUBJE|
00001590: 43 54 20 20 2A 9D 9D 9D 22 3B 53 53 24 00 AC 1D |CT *...";SS$...|
000015A0: 24 0E 8B 53 53 24 B2 22 2A 22 A7 8E 00 BA 1D 2E |$..SS$."*"......|
000015B0: 0E 4C 4C B2 C3 28 53 53 24 29 00 DE 1D 38 0E 81 |.LL..(SS$)...8..|
000015C0: 49 B2 31 A4 4E 53 3A 4B B2 C3 28 53 42 24 28 49 |I.1.NS:K..(SB$(I|
000015D0: 29 29 AB 4C 4C AA 31 3A 81 4A B2 31 A4 4B 00 F8 |)).LL.1:.J.1.K..|
000015E0: 1D 42 0E 8B 53 53 24 B2 CA 28 53 42 24 28 49 29 |.B..SS$..(SB$(I)|
000015F0: 2C 4A 2C 4C 4C 29 A7 8E 00 1C 1E 4C 0E 82 4A 3A |,J,LL).....L..J:|
00001600: 82 49 3A 99 22 11 22 53 53 24 22 20 4E 4F 54 20 |.I:."."SS$" NOT |
00001610: 49 4E 20 22 46 24 3A 89 33 36 31 30 00 4E 1E 74 |IN "F$:.3610.N.t|
00001620: 0E 99 22 50 52 45 53 53 20 12 52 45 54 55 52 4E |.."PRESS .RETURN|
00001630: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 20 |. TO CONTINUE": |
00001640: 20 20 20 20 20 47 53 24 B2 C7 28 31 33 29 00 73 | GS$..(13).s|
00001650: 1E D8 0E A1 47 24 3A 81 56 B2 31 A4 C3 28 47 53 |....G$:.V.1..(GS|
00001660: 24 29 3A 8B CA 28 47 53 24 2C 56 2C 31 29 B2 47 |$):..(GS$,V,1).G|
00001670: 24 A7 8E 00 7F 1E E2 0E 82 3A 89 33 38 30 30 00 |$........:.3800.|
00001680: B0 1E 3C 0F 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..<.."----------|
00001690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000016A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8E |-------------":.|
000016B0: 00 D5 1E 30 11 99 22 93 11 11 C7 D2 C1 C4 C5 C2 |...0..".........|
000016C0: CF CF CB 2D 2D 47 45 54 20 41 20 46 49 4C 45 22 |...--GET A FILE"|
000016D0: 3A 56 56 B2 56 00 EA 1E 3A 11 8B 56 B2 31 A7 99 |:VV.V...:..V.1..|
000016E0: 22 CE 45 57 20 46 49 4C 45 22 00 04 1F 44 11 8B |".EW FILE"...D..|
000016F0: 56 B2 32 A7 99 22 C5 58 49 53 54 49 4E 47 20 46 |V.2..".XISTING F|
00001700: 49 4C 45 22 00 28 1F 4E 11 85 22 11 45 4E 54 45 |ILE".(.N..".ENTE|
00001710: 52 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 1D 1D |R NAME OF FILE..|
00001720: 2A 9D 9D 9D 22 3B 46 24 00 36 1F 58 11 8B 46 24 |*...";F$.6.X..F$|
00001730: B2 22 2A 22 A7 80 00 46 1F 62 11 46 24 B2 C8 28 |."*"...F.b.F$..(|
00001740: 46 24 2C 31 35 29 00 68 1F 6C 11 99 22 11 56 45 |F$,15).h.l..".VE|
00001750: 52 49 46 59 20 4E 41 4D 45 20 12 59 92 2F 12 4E |RIFY NAME .Y./.N|
00001760: 92 3A 20 20 12 22 46 24 00 85 1F 76 11 47 53 24 |.: ."F$...v.GS$|
00001770: B2 22 59 4E 22 3A 8D 33 38 30 30 3A 8B 56 B2 32 |."YN":.3800:.V.2|
00001780: A7 34 34 33 30 00 A3 1F 80 11 9F 38 2C 38 2C 38 |.4430......8,8,8|
00001790: 2C 22 30 3A 4E 22 AA 46 24 AA 22 2C 53 2C 52 22 |,"0:N".F$.",S,R"|
000017A0: 3A 8D 32 00 B7 1F 8A 11 8B 41 B2 36 32 A7 A7 A0 |:.2......A.62...|
000017B0: 38 3A 89 34 34 33 30 00 CE 1F 94 11 A1 23 38 2C |8:.4430......#8,|
000017C0: 41 24 3A 4E 53 B2 C6 28 41 24 AA 5A 24 29 00 F1 |A$:NS..(A$.Z$)..|
000017D0: 1F 99 11 99 22 11 52 45 41 44 49 4E 47 20 4E 55 |....".READING NU|
000017E0: 4D 42 45 52 20 4F 46 20 53 54 55 44 45 4E 54 53 |MBER OF STUDENTS|
000017F0: 22 00 00 20 9E 11 8B 56 56 B2 32 A7 34 37 30 30 |".. ...VV.2.4700|
00001800: 00 1E 20 A8 11 9F 39 2C 38 2C 39 2C 22 30 3A 47 |.. ...9,8,9,"0:G|
00001810: 22 AA 46 24 AA 22 2C 53 2C 57 22 3A 8D 32 00 31 |".F$.",S,W":.2.1|
00001820: 20 B2 11 8B 41 B2 36 33 A7 A0 39 3A 89 34 37 30 | ...A.63..9:.470|
00001830: 30 00 4E 20 B7 11 99 22 11 43 52 45 41 54 49 4E |0.N ...".CREATIN|
00001840: 47 20 47 52 41 44 45 53 20 46 49 4C 45 22 00 5B |G GRADES FILE".[|
00001850: 20 BC 11 98 39 2C C7 28 31 29 3B 00 66 20 C6 11 | ...9,.(1);.f ..|
00001860: 98 39 2C 44 44 24 00 71 20 D0 11 98 39 2C 44 44 |.9,DD$.q ...9,DD|
00001870: 24 00 7D 20 DA 11 81 49 B2 31 A4 4E 53 00 8A 20 |$.} ...I.1.NS.. |
00001880: E4 11 98 39 2C C7 28 30 29 3B 00 91 20 EE 11 82 |...9,.(0);.. ...|
00001890: 49 00 98 20 F8 11 A0 39 00 B6 20 5C 12 9F 39 2C |I.. ...9.. \..9,|
000018A0: 38 2C 39 2C 22 30 3A 47 22 AA 46 24 AA 22 2C 53 |8,9,"0:G".F$.",S|
000018B0: 2C 52 22 3A 8D 32 00 C9 20 66 12 8B 41 B2 36 32 |,R":.2.. f..A.62|
000018C0: A7 A0 39 3A 89 34 35 32 30 00 E5 20 6B 12 99 22 |..9:.4520.. k.."|
000018D0: 11 52 45 41 44 49 4E 47 20 47 52 41 44 45 53 20 |.READING GRADES |
000018E0: 46 49 4C 45 22 00 FC 20 70 12 A1 23 39 2C 41 24 |FILE".. p..#9,A$|
000018F0: 3A 4E 47 B2 C6 28 41 24 AA 5A 24 29 00 08 21 7A |:NG..(A$.Z$)..!z|
00001900: 12 81 4A B2 31 A4 4E 47 00 16 21 7F 12 84 39 2C |..J.1.NG..!...9,|
00001910: 53 42 24 28 4A 29 00 24 21 84 12 84 39 2C 57 54 |SB$(J).$!...9,WT|
00001920: 24 28 4A 29 00 30 21 98 12 81 49 B2 31 A4 4E 53 |$(J).0!...I.1.NS|
00001930: 00 4B 21 A2 12 A1 23 39 2C 41 24 3A 41 28 49 2C |.K!...#9,A$:A(I,|
00001940: 4A 29 B2 C6 28 41 24 AA 5A 24 29 00 55 21 AC 12 |J)..(A$.Z$).U!..|
00001950: 82 49 3A 82 4A 00 5C 21 B6 12 A0 39 00 77 21 C0 |.I:.J.\!...9.w!.|
00001960: 12 99 22 11 52 45 41 44 49 4E 47 20 4E 41 4D 45 |..".READING NAME|
00001970: 53 20 46 49 4C 45 22 00 8F 21 C5 12 81 49 B2 31 |S FILE"..!...I.1|
00001980: A4 4E 53 3A 84 38 2C 53 4E 24 28 49 29 3A 82 00 |.NS:.8,SN$(I):..|
00001990: 98 21 CA 12 A0 38 3A 8E 00 C6 21 24 13 99 22 93 |.!...8:...!$..".|
000019A0: 11 11 C7 D2 C1 C4 C5 C2 CF CF CB 3A 20 20 D3 41 |...........: .A|
000019B0: 56 49 4E 47 20 44 41 54 41 20 46 4F 52 20 22 3A |VING DATA FOR ":|
000019C0: 99 22 12 22 46 24 00 DE 21 2E 13 98 31 35 2C 22 |."."F$..!...15,"|
000019D0: 53 30 3A 47 52 44 2E 42 41 43 4B 55 50 22 00 FB |S0:GRD.BACKUP"..|
000019E0: 21 38 13 98 31 35 2C 22 52 30 3A 47 52 44 2E 42 |!8..15,"R0:GRD.B|
000019F0: 41 43 4B 55 50 3D 47 22 AA 46 24 00 16 22 42 13 |ACKUP=G".F$.."B.|
00001A00: 9F 38 2C 38 2C 38 2C 22 30 3A 47 22 AA 46 24 AA |.8,8,8,"0:G".F$.|
00001A10: 22 2C 53 2C 57 22 00 24 22 4C 13 98 38 2C C7 28 |",S,W".$"L..8,.(|
00001A20: 4E 47 29 3B 00 40 22 56 13 53 42 24 28 4E 47 29 |NG);.@"V.SB$(NG)|
00001A30: B2 44 44 24 3A 57 54 24 28 4E 47 29 B2 44 44 24 |.DD$:WT$(NG).DD$|
00001A40: 00 4C 22 60 13 81 4A B2 31 A4 4E 47 00 5A 22 65 |.L"`..J.1.NG.Z"e|
00001A50: 13 98 38 2C 53 42 24 28 4A 29 00 68 22 6A 13 98 |..8,SB$(J).h"j..|
00001A60: 38 2C 57 54 24 28 4A 29 00 74 22 74 13 81 49 B2 |8,WT$(J).t"t..I.|
00001A70: 31 A4 4E 53 00 86 22 7E 13 98 38 2C C7 28 41 28 |1.NS.."~..8,.(A(|
00001A80: 49 2C 4A 29 29 3B 00 90 22 88 13 82 49 3A 82 4A |I,J));.."...I:.J|
00001A90: 00 9F 22 92 13 A0 38 3A 8B 53 44 B2 30 A7 8E 00 |.."...8:.SD.0...|
00001AA0: BC 22 9C 13 99 22 11 11 C2 41 43 4B 55 50 20 43 |."..."...ACKUP C|
00001AB0: 4F 50 59 3F 20 20 12 59 92 2F 12 4E 00 EB 22 A6 |OPY? .Y./.N..".|
00001AC0: 13 47 53 24 B2 22 59 4E 22 3A 8D 33 38 30 30 3A |.GS$."YN":.3800:|
00001AD0: 53 44 B2 30 20 20 20 20 20 20 20 20 20 20 20 20 |SD.0 |
00001AE0: 20 20 20 20 3A 8B 56 B2 32 A7 8E 00 19 23 B0 13 | :.V.2....#..|
00001AF0: 99 22 11 11 C9 4E 53 45 52 54 20 53 45 43 4F 4E |."...NSERT SECON|
00001B00: 44 20 44 49 53 4B 20 41 4E 44 20 50 52 45 53 53 |D DISK AND PRESS|
00001B10: 20 12 52 45 54 55 52 4E 92 00 33 23 BA 13 47 53 | .RETURN..3#..GS|
00001B20: 24 B2 C7 28 31 33 29 3A 8D 33 38 30 30 3A 89 34 |$..(13):.3800:.4|
00001B30: 39 31 30 00 4C 23 EC 13 8F 20 54 45 53 54 20 4E |910.L#... TEST N|
00001B40: 41 4D 45 20 46 4F 52 20 44 52 4F 50 00 7B 23 F6 |AME FOR DROP.{#.|
00001B50: 13 46 47 B2 30 3A 8B C8 28 53 4E 24 28 49 29 2C |.FG.0:..(SN$(I),|
00001B60: 34 29 B2 22 44 52 4F 50 22 20 20 20 20 20 20 20 |4)."DROP" |
00001B70: 20 20 20 20 A7 46 47 B2 31 3A 8E 00 8A 23 00 14 | .FG.1:...#..|
00001B80: 53 4E 24 B2 53 4E 24 28 49 29 00 90 23 0A 14 8E |SN$.SN$(I)..#...|
00001B90: 00 00 00 |... |
...... 15:.15,8,15:.5.*....15,A,A$:.A..1
...?....A$:.A.62.A.63...E.....~....53280
,12:.53281,12:.G(5)G(8)G(14):Z$.G(0):DD$
."XXX".....NG.50:. NG=NUMBER OF GRADES.
B...NS.50:. NS=NUMBER OF STUDENTS......
SN$(NS),SB$(NG),WT$(NG),WT(NG), A(N
S,NG)...(...GR(I)..((A(I,J).2.5)..5).0.-
...RD(X)..(100.X..5).100.X.2.."......
.GRADEBOOK 7.0.Z.<..".
TOM RICHARDSON...F..". D
ANA COLLEGE...P..". OCTOBER
1983.L.Z..I.1.1000:....D.."... GRA
DEBOOK 7.0 OCT 1983"...N.."..
A. NEW FILE.;.X..". B. EX
ISTING FILE.\....". C. TERMI
NATE.~....".. PRESS A LETTER..
...GS$."ABC":.3800... ..V.3........4400.
H.,.."..GRADEBOOK 7.0 OCT 1983"...6..".
.CURRENT FILE IS ."F$...@..".. A. ENT
ER GRADES...J..". B. INSPECT GRADES.8
.T..". C. LIST GRADES.W.^..". D. C
ALCULATE GRADES.V.H..". E. CLASS/ENTR
Y LIST...R..". F. ANOTHER FILE...|.."
. G. TERMINATE.F...GS$."ABCDEFG":.380
0:VV.V......V.600,700,700,1700,400,500,5
00.-....".LIST BY .S.TUDENT OR .E.NTRY":
GS$."SE":J.0:.3800:.V.410,450.Y....440:.
3900:KK.0: .K.1.NS.Q...I.
K:.5100:.FG.1.430......SN$;:KK.KK.1:
.KK.1...20);......KK.2
.KK.0:......J.J.1:.J.40..3900:.3700:J.0:
.440:.3900......:.480......".CLASS LIST
OF ."F$:..6.B..490:.3900:.K.1.NG.2:.SB$(
K).20)SB$(K.1).A.L.J.J.1:.J.20..3900:.37
00:J.0:.490:.3900.G.V...|....3900:.3700:
.300......".SUBJECT LIST OF ."F$:.......
SD.1..4900......V.6.100.......P.X.. GRA
DE ENTRY...B..".GRADEBOOK ENTRY FOR "F$.
..L.."..LAST ENTRY WAS #"NG.1".: "SB$(NG
.1).F.V..".TITLE FOR THIS ENTRY #"NG".:.
":SD.1.`...." *...";SB$(NG)......".
ENTER GRADE FOR EACH STUDENT......I.1.NS
:.5100:.FG.1 .A(I,NG).0:.695
......"............"SN$(I)"
.."......" *...";G$.;...A(I,NG)..
(2.5.E(G$)): .A(I,NG).255.
A(I,NG).255._....".
".R....:NG.NG.1:.300...... INSPEC
T/CORRECT/LIST GRADES...F..".GRADEBOOK F
OR "F$.U.P..V.2.."..INSPECT/CORRECT GRAD
ES BY...Z..V.3.."..LIST GRADES FOR......
".. .S.TUDENT......".. .E.NTRY.1
...GS$."SE":.3800.B....V.3500,3600.S....
SS$."*".300......VV.3..".GRADES FOR ";
:.V.1000,1100... ..".GRADE INSPEC
TION/CORRECTION FOR.F.*..". ";:.V.120
0,1500...... LIST GRADES FOR STUDENT....
..SN$(I)".":CT.0......J.1.NG......SB$(J)
.20).GR(I).R...CT.CT.1:.CT.20.CT.0:.3900
:.3700:.3900:."."SN$(I)".".I....:.3900:.
3700:.300...L.. LIST GRADES FOR SUBJECT.
..V..SB$(I)".":CT.0:J.I...`..I.1.NS...E.
.5100:.FG.1.1150.V.J..SN$(I).20).GR(I)..
.T.CT.CT.1:.CT.20.CT.0:.3900:.3700:.".."
SB$(J)".". .~..:.3900:.3700:.300.@.... I
NSPECT GRADES BY STUDENT.L....SN$(I).W.D
.."..PRESS .RETURN. IF GRADE IS CORRECT.
..X..". PRESS .X. TO CHANGE......J.
1.NG:."............
"......"."SB$(J).20).G
R(I).....GS$."X".G(13):.3800......V.2.13
10.;....".CORRECT GRADE . *...";A$.}...
.".
":A(I,J)..(2.5.E(A$)).....SD.1:.A(I,J).2
55.A(I,J).255......:.300.F.... INSPECT G
RADES BY ENTRY.V...J.I:.SB$(J)......"..P
RESS .RETURN. IF GRADE IS CORRECT."...."
. PRESS .X. TO CHANGE.?....I.1.NS:.
5100:.FG.1.1620.Z...."............
"......
"."SN$(I).20).GR(I)...".GS$."X".G(13):.3
800...,..V.2.1620.Z.6..".CORRECT GRADE .
*...";A$...@..".
":A(I,J)..(2.5.E(A$)).<.J
.SD.1:.A(I,J).255.A(I,J).255.G.T..:.300.
..... CALCULATE GRADES FROM DATA
THIS PART--SELECT WEIGHTS......18
00:K.0:. PRINT HEAD.F....J.1.NG:LL.J:L.J
:.1850...B.K.K.1:.K.8..1900:K.0...L..:.1
900...V..2000......"..GRADEBOOK FOR "F$.
A....". CURRENT WEIGHTING FACTORS" :
.3900:.:..W.:.A$.I(" ".D(L),3).S.D..A$.
10)SB$(L).30)WT$(L).Y.N.....L.. PAUSE IN
WEIGHT CHECK.R.V..3900:." ANY CHANGES .
Y./.N" :GS$."YN":.3800:.V.2.1970......
".WHICH ONE . *...";A$.....A.E(A$):.A.0
.."...": .1920.8....".CURRENT W
EIGHT IS "WT$(A).Z....".NEW WEIGHT . *.
..";WT$(A)......".MORE CHANGES .Y./.N":
SD.1:GS$."YN":.3800......1800
:.V.2........L.LL.1.K.LL:.1850:..J.F..19
00...P.."..NORMALIZING WEIGHTS, PLEASE S
TAND BY":SU.0.2.Z..J.1.NG:WT(J).E(WT$(J)
) :SU.SU.WT(J):..O....J.1.NG:W
T(J).WT(J).SU:..K.4.."...GRADEBOOK FOR
"F$...>..". GRADE CALCULATION--WEIGHTED
RESULT FOR...H..". .S.TUDENTS.J.R.
.". .E.NTRIES...\.GS$."SE":.3800:.V
.2.2500...... GRADE FOR STUDENT......:.3
900:.."....". .C.LASS.<....".
.I.NDIVIDUAL.O...GS$."CI":.3800.J...."..
WEIGHTED GRADE FOR.X.J..V.1.2400...T..35
00:.SS$."*".300......2300:."."SN$(I)....
..".. IS"SU"..".H....3700:.300.Y...SU.
0:.J.1.NG.....SU.SU..GR(I).WT(J)......:S
U..RD(SU):....`..3350:. SET STATS.F.J..
".":K.0:.I.1.NS:.5100 :.FG.1.2450.^
.T..2300:.SN$(I).20)SU.H.~..3400.....K.K
.1:.K.15..3900:.3700 :.3900:."..":K.0
............3450.J....".. AVG WEIGHTED
GRADE ="AV......". STANDARD DEVIATION =
"DV :.".."......3700:.300.".D.."..
.GRADEBOOK FOR "F$.9.N..3600:.SS$."*".30
0.C.X..3350.S...J.I:.I.1.NS.H....5100:.F
G.1.2570.V...SU..GR(I)......3400......I.
....".FOR ENTRY "SB$(J)......3450.E.(..
". AVERAGE GRADE ="AV...2..". STANDARD
DEV ="DV".."...<..3700:.300......300....
.. INIT FOR STATS.$. .SX.0:X2.0:N.0.*.*
...<.H.. STAT ENTRY.[.R.SX.SX.SU:X2.X2.
SU.SU:N.N.1.A.\...S.Z.. STAT CALCN.....
AV.SX.N:DV..((X2.N.AV.AV).(N.1)).....AV.
.RD(AV):DV..RD(DV).......K.... NAME SEA
RCH......".ENTER NAME *...";SS$......SS
$."*".....J.LL.C(SS$).).T..I.1.NS:K.C(SN
$(I)).LL.1:.J.1.K.C....SS$.J(SN$(I),J,LL
)...G....J:.I:."."SS$" NOT IN "F$:.3510.
}.... SUBJECT SEARCH......".ENTER SUBJE
CT *...";SS$...$..SS$."*".......LL.C(SS
$)...8..I.1.NS:K.C(SB$(I)).LL.1:.J.1.K..
.B..SS$.J(SB$(I),J,LL).....L..J:.I:."."S
S$" NOT IN "F$:.3610.N.T.."PRESS .RETURN
. TO CONTINUE": GS$.G(13).S.X..G$:.
V.1.C(GS$):.J(GS$,V,1).G$.......:.3800.
..<.."----------------------------------
-----":..U.0.."...GRADEBOOK--GET A FILE"
:VV.V...:..V.1.."NEW FILE"...D..V.2.."EX
ISTING FILE".(.N..".ENTER NAME OF FILE..
*...";F$.6.X..F$."*"...F.B.F$.H(F$,15).H
.L..".VERIFY NAME .Y./.N.: ."F$...V.GS$
."YN":.3800:.V.2.4430......8,8,8,"0:N".F
$.",S,R":.2......A.62.. 8:.4430.N....#8,
A$:NS.F(A$.Z$)......".READING NUMBER OF
STUDENTS".. ...VV.2.4700.. ...9,8,9,"0:G
".F$.",S,W":.2.1 ...A.63. 9:.4700.N ..."
.CREATING GRADES FILE".[ ...9,G(1);.F F.
.9,DD$.Q P..9,DD$.} Z..I.1.NS.. ...9,G(0
);.. ...I.. .. 9.. \..9,8,9,"0:G".F$.",S
,R":.2.I F..A.62. 9:.4520.. K..".READING
GRADES FILE".. P..#9,A$:NG.F(A$.Z$)..!Z
..J.1.NG..!..9,SB$(J).$!...9,WT$(J).0!.
..I.1.NS.K!...#9,A$:A(I,J).F(A$.Z$).U!..
.I:.J.\!.. 9.W!...".READING NAMES FILE".
.!E..I.1.NS:.8,SN$(I):...!J. 8:..F!$..".
..GRADEBOOK: SAVING DATA FOR ":."."F$..
!...15,"S0:GRD.BACKUP"..!8..15,"R0:GRD.B
ACKUP=G".F$.."B..8,8,8,"0:G".F$.",S,W".$
"L..8,G(NG);.@"V.SB$(NG).DD$:WT$(NG).DD$
.L"`..J.1.NG.Z"E..8,SB$(J).H"J..8,WT$(J)
.T"T..I.1.NS.."~..8,G(A(I,J));.."...I:.J
..".. 8:.SD.0...."..."..BACKUP COPY? .Y
./.N.."..GS$."YN":.3800:SD.0
:.V.2....#..."..INSERT SECOND DISK A
ND PRESS .RETURN..3#..GS$.G(13):.3800:.4
910.L#... TEST NAME FOR DROP.{#..FG.0:.H
(SN$(I),4)."DROP" .FG.1:...#..
SN$.SN$(I)..#......
> CLICK IMAGE PREVIEW FOR FULL MODAL