HOMEWORK.C

00000000: 01 08 39 08 0A 00 97 35  33 32 38 31 2C 31 32 3A  |..9....53281,12:|
00000010: 97 35 33 32 38 30 2C 31  32 3A 99 C7 28 38 29 C7  |.53280,12:..(8).|
00000020: 28 35 29 C7 28 31 34 29  3A 5A 24 B2 C7 28 30 29  |(5).(14):Z$..(0)|
00000030: 3A 9F 31 35 2C 38 2C 31  35 00 62 08 14 00 99 22  |:.15,8,15.b...."|
00000040: 93 11 11 11 20 20 20 20  20 20 20 20 20 20 20 12  |....           .|
00000050: C8 CF CD C5 D7 CF D2 CB  92 20 12 D2 C5 C3 CF D2  |......... ......|
00000060: C4 D3 00 86 08 1E 00 99  22 11 11 11 20 20 20 20  |........"...    |
00000070: 20 20 20 20 20 20 20 20  D4 4F 4D 20 D2 49 43 48  |        .OM .ICH|
00000080: 41 52 44 53 4F 4E 00 A8  08 28 00 99 22 11 11 20  |ARDSON...(..".. |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 C4 41 4E 41  |            .ANA|
000000A0: 20 C3 4F 4C 4C 45 47 45  00 CA 08 32 00 99 22 11  | .OLLEGE...2..".|
000000B0: 11 20 20 20 20 20 20 20  20 20 20 20 20 20 CF 43  |.             .C|
000000C0: 54 4F 42 45 52 20 31 39  38 33 00 19 09 46 00 42  |TOBER 1983...F.B|
000000D0: 59 54 45 B2 30 3A 42 49  54 B2 30 3A 54 45 B2 30  |YTE.0:BIT.0:TE.0|
000000E0: 3A 53 46 B2 30 3A 4B B2  30 3A 54 4D B2 30 3A 4B  |:SF.0:K.0:TM.0:K|
000000F0: 4B B2 30 20 20 20 3A 41  B2 30 3A 53 55 B2 30 3A  |K.0   :A.0:SU.0:|
00000100: 56 B2 30 3A 56 56 B2 30  3A 4E 53 B2 30 3A 49 B2  |V.0:VV.0:NS.0:I.|
00000110: 30 3A 4A B2 30 3A 44 B2  30 00 53 09 50 00 50 24  |0:J.0:D.0.S.P.P$|
00000120: 28 30 29 B2 22 12 4E 4F  20 50 41 50 45 52 92 20  |(0).".NO PAPER. |
00000130: 3A 22 3A 50 24 28 31 29  B2 22 53 55 42 4D 49 54  |:":P$(1)."SUBMIT|
00000140: 54 45 44 3A 20 22 20 20  3A 53 53 B2 30 3A 44 41  |TED: "  :SS.0:DA|
00000150: 59 B2 30 00 72 09 5A 00  86 20 44 41 24 28 36 34  |Y.0.r.Z.. DA$(64|
00000160: 29 2C 41 28 35 30 2C 36  34 29 2C 53 4E 24 28 35  |),A(50,64),SN$(5|
00000170: 30 29 00 8C 09 64 00 99  22 93 11 11 C8 CF CD C5  |0)...d..".......|
00000180: D7 CF D2 CB A0 D2 C5 C3  CF D2 C4 D3 00 AE 09 6E  |...............n|
00000190: 00 99 22 11 11 11 20 20  20 20 50 52 45 53 53 20  |.."...    PRESS |
000001A0: 41 20 4C 45 54 54 45 52  20 2E 20 2E 20 2E 00 D1  |A LETTER . . ...|
000001B0: 09 78 00 99 22 11 20 20  20 20 20 20 41 2E 20 20  |.x..".      A.  |
000001C0: 43 52 45 41 54 45 20 41  20 4E 45 57 20 46 49 4C  |CREATE A NEW FIL|
000001D0: 45 00 F8 09 82 00 99 22  11 20 20 20 20 20 20 42  |E......".      B|
000001E0: 2E 20 20 57 4F 52 4B 20  41 4E 20 45 58 49 53 54  |.  WORK AN EXIST|
000001F0: 49 4E 47 20 46 49 4C 45  00 17 0A 87 00 99 22 11  |ING FILE......".|
00000200: 20 20 20 20 20 20 43 2E  20 20 54 45 52 4D 49 4E  |      C.  TERMIN|
00000210: 41 54 45 20 52 55 4E 00  32 0A 8C 00 47 53 24 B2  |ATE RUN.2...GS$.|
00000220: 22 41 42 43 22 3A 8D 39  30 30 30 3A 8B 56 B2 33  |"ABC":.9000:.V.3|
00000230: A7 80 00 3B 0A 91 00 56  56 B2 56 00 59 0A 96 00  |...;...VV.V.Y...|
00000240: 99 22 11 11 11 45 4E 54  45 52 20 4E 41 4D 45 20  |."...ENTER NAME |
00000250: 4F 46 20 46 49 4C 45 22  3B 00 74 0A A0 00 85 22  |OF FILE";.t...."|
00000260: 1D 1D 2A 9D 9D 9D 22 3B  46 24 3A 8B 46 24 B2 22  |..*...";F$:.F$."|
00000270: 2A 22 A7 80 00 84 0A AA  00 46 24 B2 C8 28 46 24  |*".......F$..(F$|
00000280: 2C 31 35 29 00 A8 0A B4  00 99 22 11 56 45 52 49  |,15)......".VERI|
00000290: 46 59 20 4E 41 4D 45 3A  20 12 22 46 24 22 92 3A  |FY NAME: ."F$".:|
000002A0: 20 12 59 92 2F 12 4E 22  00 C4 0A BE 00 47 53 24  | .Y./.N".....GS$|
000002B0: B2 22 59 4E 22 3A 8D 39  30 30 30 3A 8B 56 B2 32  |."YN":.9000:.V.2|
000002C0: A7 31 35 30 00 DF 0A C8  00 9F 37 2C 38 2C 37 2C  |.150......7,8,7,|
000002D0: 22 30 3A 4E 22 AA 46 24  AA 22 2C 53 2C 52 22 00  |"0:N".F$.",S,R".|
000002E0: F8 0A DC 00 8D 31 30 30  30 30 3A 8B 41 B2 36 32  |.....10000:.A.62|
000002F0: A7 A0 37 3A 89 31 35 30  00 11 0B E6 00 A1 23 37  |..7:.150......#7|
00000300: 2C 4E 53 24 3A 4E 53 B2  C6 28 4E 53 24 AA 5A 24  |,NS$:NS..(NS$.Z$|
00000310: 29 00 2F 0B F0 00 8B 4E  53 B2 30 A7 A0 37 3A 99  |)./....NS.0..7:.|
00000320: 22 42 41 44 20 46 49 4C  45 22 3A 89 31 35 30 00  |"BAD FILE":.150.|
00000330: 48 0B FA 00 81 49 B2 31  A4 4E 53 3A 84 37 2C 53  |H....I.1.NS:.7,S|
00000340: 4E 24 28 49 29 3A 82 49  00 5A 0B 04 01 A0 37 3A  |N$(I):.I.Z....7:|
00000350: 8B 56 56 B2 31 A7 31 37  30 30 00 69 0B E8 03 8F  |.VV.1.1700.i....|
00000360: 20 48 4F 4D 45 57 4F 52  4B 00 8D 0B F2 03 99 22  | HOMEWORK......"|
00000370: 93 11 11 20 20 C8 CF CD  C5 D7 CF D2 CB A0 D2 C5  |...  ...........|
00000380: C3 CF D2 C4 D3 20 46 4F  52 20 22 46 24 00 BA 0B  |..... FOR "F$...|
00000390: FC 03 99 22 11 11 11 20  20 20 20 20 20 4C 4F 41  |..."...      LOA|
000003A0: 44 49 4E 47 20 44 41 54  41 2D 2D 50 4C 45 41 53  |DING DATA--PLEAS|
000003B0: 45 20 53 54 41 4E 44 20  42 59 00 EB 0B 06 04 9F  |E STAND BY......|
000003C0: 38 2C 38 2C 38 2C 22 30  3A 48 22 AA 46 24 AA 22  |8,8,8,"0:H".F$."|
000003D0: 2C 53 2C 52 22 3A 8D 31  30 30 30 30 3A 8B 41 B2  |,S,R":.10000:.A.|
000003E0: 36 32 A7 A0 38 3A 89 31  37 30 30 00 1B 0C 10 04  |62..8:.1700.....|
000003F0: 81 49 B2 31 A4 4E 53 3A  81 4A B2 30 A4 37 3A A1  |.I.1.NS:.J.0.7:.|
00000400: 23 38 2C 41 24 3A 41 28  49 2C 4A 29 B2 C6 28 41  |#8,A$:A(I,J)..(A|
00000410: 24 AA 5A 24 29 3A 82 4A  3A 82 49 00 31 0C 1A 04  |$.Z$):.J:.I.1...|
00000420: A1 23 38 2C 44 24 3A 44  B2 C6 28 44 24 AA 5A 24  |.#8,D$:D..(D$.Z$|
00000430: 29 00 4F 0C 24 04 81 49  B2 31 A4 44 3A 84 38 2C  |).O.$..I.1.D:.8,|
00000440: 44 41 24 28 49 29 3A 82  49 3A 44 B2 44 AB 31 00  |DA$(I):.I:D.D.1.|
00000450: 56 0C 2E 04 A0 38 00 7A  0C 4C 04 99 22 93 11 11  |V....8.z.L.."...|
00000460: 20 20 C8 CF CD C5 D7 CF  D2 CB A0 D2 C5 C3 CF D2  |  ..............|
00000470: C4 D3 A0 46 4F 52 22 3B  46 24 00 91 0C 56 04 99  |...FOR";F$...V..|
00000480: 22 11 20 50 52 45 53 53  20 41 20 4C 45 54 54 45  |". PRESS A LETTE|
00000490: 52 00 B5 0C 6A 04 99 22  11 20 20 20 41 2E 20 20  |R...j..".   A.  |
000004A0: 55 50 44 41 54 45 20 28  45 58 54 45 4E 44 29 20  |UPDATE (EXTEND) |
000004B0: 44 41 54 41 22 00 DD 0C  74 04 99 22 11 20 20 20  |DATA"...t..".   |
000004C0: 42 2E 20 20 49 4E 53 50  45 43 54 2F 43 4F 52 52  |B.  INSPECT/CORR|
000004D0: 45 43 54 20 41 4E 20 45  4E 54 52 59 22 00 FC 0C  |ECT AN ENTRY"...|
000004E0: 7E 04 99 22 11 20 20 20  43 2E 20 20 41 20 44 49  |~..".   C.  A DI|
000004F0: 46 46 45 52 45 4E 54 20  46 49 4C 45 00 15 0D 88  |FFERENT FILE....|
00000500: 04 99 22 11 20 20 20 44  2E 20 20 54 45 52 4D 49  |..".   D.  TERMI|
00000510: 4E 41 54 45 22 00 2A 0D  92 04 47 53 24 B2 22 41  |NATE".*...GS$."A|
00000520: 42 43 44 22 3A 8D 39 30  30 30 00 45 0D 9C 04 91  |BCD":.9000.E....|
00000530: 56 89 33 30 30 30 2C 35  30 30 30 2C 37 30 30 30  |V.3000,5000,7000|
00000540: 2C 37 30 30 30 00 67 0D  B0 04 99 22 93 11 11 C8  |,7000.g...."....|
00000550: CF CD C5 D7 CF D2 CB A0  D2 C5 C3 CF D2 C4 D3 A0  |................|
00000560: 46 4F 52 20 22 46 24 00  91 0D BA 04 99 22 11 11  |FOR "F$......"..|
00000570: 11 20 20 20 20 53 41 56  49 4E 47 20 44 41 54 41  |.    SAVING DATA|
00000580: 2D 2D 50 4C 45 41 53 45  20 53 54 41 4E 44 20 42  |--PLEASE STAND B|
00000590: 59 00 A9 0D C4 04 98 31  35 2C 22 53 30 3A 48 57  |Y......15,"S0:HW|
000005A0: 4B 2E 42 41 43 4B 55 50  22 00 C6 0D CE 04 98 31  |K.BACKUP"......1|
000005B0: 35 2C 22 52 30 3A 48 57  4B 2E 42 41 43 4B 55 50  |5,"R0:HWK.BACKUP|
000005C0: 3D 48 22 AA 46 24 00 D8  0D D8 04 98 31 35 2C 22  |=H".F$......15,"|
000005D0: 53 30 3A 48 22 AA 46 24  00 F3 0D E2 04 9F 38 2C  |S0:H".F$......8,|
000005E0: 38 2C 38 2C 22 30 3A 48  22 AA 46 24 AA 22 2C 53  |8,8,"0:H".F$.",S|
000005F0: 2C 57 22 00 1A 0E EC 04  81 49 B2 31 A4 4E 53 3A  |,W"......I.1.NS:|
00000600: 81 4A B2 30 A4 37 3A 98  38 2C C7 28 41 28 49 2C  |.J.0.7:.8,.(A(I,|
00000610: 4A 29 29 3B 3A 82 4A 3A  82 49 00 29 0E F6 04 98  |J));:.J:.I.)....|
00000620: 38 2C C7 28 44 AA 31 29  3B 00 41 0E 00 05 81 49  |8,.(D.1);.A....I|
00000630: B2 31 A4 44 3A 98 38 2C  44 41 24 28 49 29 3A 82  |.1.D:.8,DA$(I):.|
00000640: 49 00 51 0E 0A 05 98 38  2C 22 4D 41 52 4B 45 52  |I.Q....8,"MARKER|
00000650: 22 00 60 0E 14 05 A0 38  3A 8B 53 46 B2 30 A7 8E  |".`....8:.SF.0..|
00000660: 00 80 0E 1E 05 99 22 11  11 20 20 20 20 C2 41 43  |......"..    .AC|
00000670: 4B 55 50 20 43 4F 50 59  3F 20 12 59 92 2F 12 4E  |KUP COPY? .Y./.N|
00000680: 00 B2 0E 28 05 47 53 24  B2 22 59 4E 22 3A 8D 39  |...(.GS$."YN":.9|
00000690: 30 30 30 3A 53 46 B2 30  20 20 20 20 20 20 20 20  |000:SF.0        |
000006A0: 20 20 20 20 20 20 20 20  3A 8B 56 B2 32 A7 31 33  |        :.V.2.13|
000006B0: 30 30 00 E1 0E 32 05 99  22 11 11 11 C9 4E 53 45  |00...2.."....NSE|
000006C0: 52 54 20 53 45 43 4F 4E  44 20 44 49 53 4B 20 41  |RT SECOND DISK A|
000006D0: 4E 44 20 50 52 45 53 53  20 12 52 45 54 55 52 4E  |ND PRESS .RETURN|
000006E0: 22 00 FB 0E 3C 05 47 53  24 B2 C7 28 31 33 29 3A  |"...<.GS$..(13):|
000006F0: 8D 39 30 30 30 3A 89 31  32 32 30 00 10 0F A4 06  |.9000:.1220.....|
00000700: 8F 20 53 45 54 55 50 20  48 4F 4D 45 57 4F 52 4B  |. SETUP HOMEWORK|
00000710: 00 41 0F AE 06 9F 38 2C  38 2C 38 2C 22 30 3A 48  |.A....8,8,8,"0:H|
00000720: 22 AA 46 24 AA 22 2C 53  2C 57 22 3A 8D 31 30 30  |".F$.",S,W":.100|
00000730: 30 30 3A 8B 41 B2 36 33  A7 A0 38 3A 89 31 30 30  |00:.A.63..8:.100|
00000740: 30 00 63 0F B8 06 81 49  B2 31 A4 4E 53 3A 81 4A  |0.c....I.1.NS:.J|
00000750: B2 30 A4 37 3A 98 38 2C  C7 28 30 29 3B 3A 82 4A  |.0.7:.8,.(0);:.J|
00000760: 3A 82 49 00 70 0F C2 06  98 38 2C C7 28 31 29 3B  |:.I.p....8,.(1);|
00000770: 00 80 0F CC 06 98 38 2C  22 4D 41 52 4B 45 52 22  |......8,"MARKER"|
00000780: 00 8D 0F D6 06 A0 38 3A  89 31 30 30 30 00 A8 0F  |......8:.1000...|
00000790: D0 07 8F 20 53 54 52 49  4E 47 20 53 45 41 52 43  |... STRING SEARC|
000007A0: 48 2D 2D 4E 41 4D 45 53  00 BE 0F DA 07 53 53 B2  |H--NAMES.....SS.|
000007B0: C3 28 53 53 24 29 3A 81  49 B2 31 A4 4E 53 00 D8  |.(SS$):.I.1.NS..|
000007C0: 0F E4 07 81 4A B2 31 A4  28 C3 28 53 4E 24 28 49  |....J.1.(.(SN$(I|
000007D0: 29 29 AB 53 53 AA 31 29  00 F3 0F EE 07 8B 20 53  |)).SS.1)...... S|
000007E0: 53 24 B2 CA 28 53 4E 24  28 49 29 2C 4A 2C 53 53  |S$..(SN$(I),J,SS|
000007F0: 29 A7 8E 00 03 10 F8 07  82 4A 3A 82 49 3A 49 B2  |)........J:.I:I.|
00000800: 30 3A 8E 00 1E 10 34 08  8F 20 53 54 52 49 4E 47  |0:....4.. STRING|
00000810: 20 53 45 41 52 43 48 2D  2D 44 41 54 45 53 00 33  | SEARCH--DATES.3|
00000820: 10 3E 08 53 53 B2 C3 28  53 53 24 29 3A 81 49 B2  |.>.SS..(SS$):.I.|
00000830: 31 A4 44 00 4D 10 48 08  81 4A B2 31 A4 28 C3 28  |1.D.M.H..J.1.(.(|
00000840: 44 41 24 28 49 29 29 AB  53 53 AA 31 29 00 68 10  |DA$(I)).SS.1).h.|
00000850: 52 08 8B 20 53 53 24 B2  CA 28 44 41 24 28 49 29  |R.. SS$..(DA$(I)|
00000860: 2C 4A 2C 53 53 29 A7 8E  00 78 10 5C 08 82 4A 3A  |,J,SS)...x.\..J:|
00000870: 82 49 3A 49 B2 30 3A 8E  00 8E 10 B8 0B 8F 20 20  |.I:I.0:.......  |
00000880: 55 50 44 41 54 45 20 52  45 43 4F 52 44 53 00 B3  |UPDATE RECORDS..|
00000890: 10 C2 0B 99 22 93 11 11  20 20 C8 CF CD C5 D7 CF  |...."...  ......|
000008A0: D2 CB A0 D2 C5 C3 CF D2  C4 D3 A0 46 4F 52 20 22  |...........FOR "|
000008B0: 3B 46 24 00 E0 10 CC 0B  99 22 11 11 4C 41 53 54  |;F$......"..LAST|
000008C0: 20 52 45 43 4F 52 44 20  57 41 53 20 23 22 44 22  | RECORD WAS #"D"|
000008D0: 9D 2C 20 22 44 41 24 28  44 29 3A 44 B2 44 AA 31  |., "DA$(D):D.D.1|
000008E0: 00 18 11 D6 0B 99 22 11  11 C5 4E 54 45 52 20 4E  |......"...NTER N|
000008F0: 4F 54 45 20 4F 4E 20 4E  45 57 20 52 45 43 4F 52  |OTE ON NEW RECOR|
00000900: 44 20 23 22 44 3B 3A 85  22 20 9D 20 2A 9D 9D 9D  |D #"D;:." . *...|
00000910: 22 3B 44 41 24 28 44 29  00 22 11 1C 0C 44 41 59  |";DA$(D)."...DAY|
00000920: B2 44 00 38 11 26 0C 42  59 54 45 B2 B5 28 28 44  |.D.8.&.BYTE..((D|
00000930: 41 59 AB 31 29 AD 38 29  00 56 11 30 0C 42 49 54  |AY.1).8).V.0.BIT|
00000940: B2 44 41 59 AB 42 59 54  45 AC 38 AB 31 3A 54 45  |.DAY.BYTE.8.1:TE|
00000950: B2 32 AE 42 49 54 00 7C  11 3A 0C 99 22 93 11 11  |.2.BIT.|.:.."...|
00000960: D2 C5 C3 CF D2 C4 20 D3  D5 C2 CD C9 D3 D3 C9 CF  |...... .........|
00000970: CE 20 4F 46 20 22 44 41  24 28 44 29 00 B2 11 44  |. OF "DA$(D)...D|
00000980: 0C 47 53 24 B2 22 4E 59  22 3A 99 22 11 11 50 52  |.GS$."NY":."..PR|
00000990: 45 53 53 20 12 4E 92 20  49 46 20 4E 4F 20 50 41  |ESS .N. IF NO PA|
000009A0: 50 45 52 20 57 41 53 20  53 55 42 4D 49 54 54 45  |PER WAS SUBMITTE|
000009B0: 44 2C 00 E0 11 4E 0C 99  22 20 20 20 20 20 50 52  |D,...N.."     PR|
000009C0: 45 53 53 20 12 59 92 20  49 46 20 41 20 50 41 50  |ESS .Y. IF A PAP|
000009D0: 45 52 20 57 41 53 20 53  55 42 4D 49 54 54 45 44  |ER WAS SUBMITTED|
000009E0: 00 EC 11 58 0C 81 49 B2  31 A4 4E 53 00 0A 12 62  |...X..I.1.NS...b|
000009F0: 0C 3A 8B C8 28 53 4E 24  28 49 29 2C 34 29 B2 22  |.:..(SN$(I),4)."|
00000A00: 44 52 4F 50 22 A7 33 32  31 30 00 3D 12 6C 0C 3A  |DROP".3210.=.l.:|
00000A10: 99 22 13 11 11 11 11 11  11 11 11 20 20 20 20 20  |.".........     |
00000A20: 20 22 53 4E 24 28 49 29  22 20 20 20 20 20 20 20  | "SN$(I)"       |
00000A30: 20 20 20 20 20 20 20 20  20 20 20 20 22 00 52 12  |            ".R.|
00000A40: 76 0C 3A 8D 39 30 30 30  3A 8B 56 B2 31 A7 33 32  |v.:.9000:.V.1.32|
00000A50: 31 30 00 70 12 80 0C 3A  41 28 49 2C 42 59 54 45  |10.p...:A(I,BYTE|
00000A60: 29 B2 28 41 28 49 2C 42  59 54 45 29 B0 54 45 29  |).(A(I,BYTE).TE)|
00000A70: 00 77 12 8A 0C 3A 82 00  86 12 94 0C 53 46 B2 31  |.w...:......SF.1|
00000A80: 3A 89 31 31 30 30 00 9E  12 88 13 8F 20 20 43 4F  |:.1100......  CO|
00000A90: 52 52 45 43 54 20 41 4E  20 45 4E 54 52 59 00 D6  |RRECT AN ENTRY..|
00000AA0: 12 92 13 99 22 93 11 11  C8 CF CD C5 D7 CF D2 CB  |...."...........|
00000AB0: A0 C9 CE D3 D0 C5 C3 D4  C9 CF CE 2F C3 CF D2 D2  |.........../....|
00000AC0: C5 C3 D4 C9 CF CE A0 46  4F 52 20 22 3A 99 22 11  |.......FOR ":.".|
00000AD0: 20 20 20 22 46 24 00 F3  12 9C 13 99 22 11 11 20  |   "F$......".. |
00000AE0: 20 44 4F 20 49 54 20 42  59 20 12 53 92 54 55 44  | DO IT BY .S.TUD|
00000AF0: 45 4E 54 00 0E 13 A6 13  99 22 11 20 20 20 20 20  |ENT......".     |
00000B00: 20 4F 52 20 42 59 20 12  4E 92 4F 54 45 3F 00 2E  | OR BY .N.OTE?..|
00000B10: 13 B0 13 47 53 24 B2 22  53 4E 22 3A 8D 39 30 30  |...GS$."SN":.900|
00000B20: 30 3A 91 56 89 35 31 30  30 2C 35 37 30 30 00 53  |0:.V.5100,5700.S|
00000B30: 13 EC 13 85 22 11 11 4E  41 4D 45 20 4F 46 20 53  |...."..NAME OF S|
00000B40: 54 55 44 45 4E 54 20 20  9D 20 2A 9D 9D 9D 22 3B  |TUDENT  . *...";|
00000B50: 53 53 24 00 65 13 00 14  8B 53 53 24 B2 22 2A 22  |SS$.e....SS$."*"|
00000B60: A7 31 31 30 30 00 6F 13  0A 14 8D 32 30 30 30 00  |.1100.o....2000.|
00000B70: 92 13 14 14 8B 49 B2 30  A7 99 22 11 4E 4F 20 53  |.....I.0..".NO S|
00000B80: 55 43 48 20 53 54 55 44  45 4E 54 22 3A 89 35 31  |UCH STUDENT":.51|
00000B90: 30 30 00 AF 13 18 15 99  22 93 11 11 52 45 43 4F  |00......"...RECO|
00000BA0: 52 44 20 4F 46 20 12 22  53 4E 24 28 49 29 22 00  |RD OF ."SN$(I)".|
00000BB0: EA 13 1D 15 99 22 11 11  50 52 45 53 53 20 12 58  |....."..PRESS .X|
00000BC0: 92 20 49 46 20 42 41 44  2C 22 20 20 20 20 20 20  |. IF BAD,"      |
00000BD0: 20 20 20 20 20 20 20 3A  47 53 24 B2 22 58 22 AA  |       :GS$."X".|
00000BE0: C7 28 31 33 29 3A 53 55  B2 30 00 09 14 22 15 99  |.(13):SU.0..."..|
00000BF0: 22 20 20 20 50 52 45 53  53 20 12 52 45 54 55 52  |"   PRESS .RETUR|
00000C00: 4E 92 20 49 46 20 4F 4B  22 00 14 14 2C 15 81 4A  |N. IF OK"...,..J|
00000C10: B2 31 A4 44 00 1E 14 36  15 44 41 59 B2 4A 00 41  |.1.D...6.DAY.J.A|
00000C20: 14 40 15 42 59 54 45 B2  B5 28 28 44 41 59 AB 31  |.@.BYTE..((DAY.1|
00000C30: 29 AD 38 29 3A 54 4D B2  41 28 49 2C 42 59 54 45  |).8):TM.A(I,BYTE|
00000C40: 29 00 5F 14 4A 15 42 49  54 B2 44 41 59 AB 42 59  |)._.J.BIT.DAY.BY|
00000C50: 54 45 AC 38 AB 31 3A 54  45 B2 32 AE 42 49 54 00  |TE.8.1:TE.2.BIT.|
00000C60: 78 14 54 15 4B B2 28 54  4D AF 54 45 29 AD 54 45  |x.T.K.(TM.TE).TE|
00000C70: 3A 53 55 B2 53 55 AA 4B  00 B9 14 5E 15 99 22 13  |:SU.SU.K...^..".|
00000C80: 11 11 11 11 11 11 11 11  22 50 24 28 4B 29 44 41  |........"P$(K)DA|
00000C90: 24 28 4A 29 22 20 20 20  20 20 20 20 20 20 20 20  |$(J)"           |
00000CA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000CB0: 20 20 20 20 20 20 20 20  22 00 CD 14 68 15 8D 39  |        "...h..9|
00000CC0: 30 30 30 3A 8B 56 B2 32  A7 35 35 32 30 00 DF 14  |000:.V.2.5520...|
00000CD0: 72 15 8B 4B B2 30 A7 54  4D B2 54 4D AA 54 45 00  |r..K.0.TM.TM.TE.|
00000CE0: F1 14 7C 15 8B 4B B2 31  A7 54 4D B2 54 4D AB 54  |..|..K.1.TM.TM.T|
00000CF0: 45 00 07 15 86 15 41 28  49 2C 42 59 54 45 29 B2  |E.....A(I,BYTE).|
00000D00: 54 4D 3A 53 46 B2 31 00  0D 15 90 15 82 00 3D 15  |TM:SF.1.......=.|
00000D10: 9A 15 99 22 11 22 53 55  22 53 55 42 4D 49 53 53  |..."."SU"SUBMISS|
00000D20: 49 4F 4E 53 20 4F 55 54  20 4F 46 22 44 22 53 45  |IONS OUT OF"D"SE|
00000D30: 53 53 49 4F 4E 53 22 3A  8D 38 39 39 30 00 47 15  |SSIONS":.8990.G.|
00000D40: A4 15 89 35 30 30 30 00  69 15 44 16 85 22 11 11  |...5000.i.D.."..|
00000D50: 44 45 53 49 52 45 44 20  4E 4F 54 45 20 20 9D 20  |DESIRED NOTE  . |
00000D60: 2A 9D 9D 9D 22 3B 53 53  24 00 7B 15 58 16 8B 53  |*...";SS$.{.X..S|
00000D70: 53 24 B2 22 2A 22 A7 31  31 30 30 00 85 15 62 16  |S$."*".1100...b.|
00000D80: 8D 32 31 30 30 00 A5 15  6C 16 8B 49 B2 30 A7 99  |.2100...l..I.0..|
00000D90: 22 11 4E 4F 20 53 55 43  48 20 4E 4F 54 45 22 3A  |".NO SUCH NOTE":|
00000DA0: 89 35 37 30 30 00 B4 15  A8 16 44 41 59 B2 49 3A  |.5700.....DAY.I:|
00000DB0: 53 55 B2 30 00 CA 15 B2  16 42 59 54 45 B2 B5 28  |SU.0.....BYTE..(|
00000DC0: 28 44 41 59 AB 31 29 AD  38 29 00 E8 15 BC 16 42  |(DAY.1).8).....B|
00000DD0: 49 54 B2 44 41 59 AB 42  59 54 45 AC 38 AB 31 3A  |IT.DAY.BYTE.8.1:|
00000DE0: 54 45 B2 32 AE 42 49 54  00 27 16 C6 16 99 22 93  |TE.2.BIT.'....".|
00000DF0: 11 11 52 45 43 4F 52 44  20 4F 46 20 22 44 41 24  |..RECORD OF "DA$|
00000E00: 28 49 29 22 2E 20 20 D0  52 45 53 53 20 12 58 92  |(I)".  .RESS .X.|
00000E10: 20 49 46 20 42 41 44 2C  22 3A 47 53 24 B2 22 58  | IF BAD,":GS$."X|
00000E20: 22 AA C7 28 31 33 29 00  46 16 D0 16 99 22 20 20  |"..(13).F...."  |
00000E30: 20 50 52 45 53 53 20 12  52 45 54 55 52 4E 92 20  | PRESS .RETURN. |
00000E40: 49 46 20 4F 4B 22 00 53  16 DA 16 81 4B 4B B2 31  |IF OK".S....KK.1|
00000E50: A4 4E 53 00 71 16 DF 16  8B C8 28 53 4E 24 28 4B  |.NS.q.....(SN$(K|
00000E60: 4B 29 2C 34 29 B2 22 44  52 4F 50 22 A7 35 39 32  |K),4)."DROP".592|
00000E70: 30 00 98 16 E4 16 54 4D  B2 41 28 4B 4B 2C 42 59  |0.....TM.A(KK,BY|
00000E80: 54 45 29 3A 4B B2 28 54  4D AF 54 45 29 AD 54 45  |TE):K.(TM.TE).TE|
00000E90: 3A 53 55 B2 53 55 AA 4B  00 D9 16 EE 16 99 22 13  |:SU.SU.K......".|
00000EA0: 11 11 11 11 11 11 22 50  24 28 4B 29 53 4E 24 28  |......"P$(K)SN$(|
00000EB0: 4B 4B 29 22 20 20 20 20  20 20 20 20 20 20 20 20  |KK)"            |
00000EC0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 A0  |               .|
00000ED0: A0 A0 A0 A0 A0 A0 A0 A0  22 00 ED 16 F8 16 8D 39  |........"......9|
00000EE0: 30 30 30 3A 8B 56 B2 32  A7 35 39 32 30 00 FF 16  |000:.V.2.5920...|
00000EF0: 02 17 8B 4B B2 30 A7 54  4D B2 54 4D AA 54 45 00  |...K.0.TM.TM.TE.|
00000F00: 11 17 0C 17 8B 4B B2 31  A7 54 4D B2 54 4D AB 54  |.....K.1.TM.TM.T|
00000F10: 45 00 28 17 16 17 41 28  4B 4B 2C 42 59 54 45 29  |E.(...A(KK,BYTE)|
00000F20: B2 54 4D 3A 53 46 B2 31  00 2E 17 20 17 82 00 5B  |.TM:SF.1... ...[|
00000F30: 17 2A 17 99 22 11 22 53  55 22 53 55 42 4D 49 54  |.*.."."SU"SUBMIT|
00000F40: 54 45 44 20 46 4F 52 20  54 48 49 53 20 53 45 53  |TED FOR THIS SES|
00000F50: 53 49 4F 4E 22 3A 8D 38  39 39 30 00 65 17 34 17  |SION":.8990.e.4.|
00000F60: 89 35 30 30 30 00 80 17  58 1B 8F 20 20 4E 45 57  |.5000...X..  NEW|
00000F70: 20 46 49 4C 45 2C 20 54  45 52 4D 49 4E 41 54 45  | FILE, TERMINATE|
00000F80: 00 91 17 62 1B 8B 53 46  B3 B1 30 A7 8D 31 32 30  |...b..SF..0..120|
00000F90: 30 00 9E 17 6C 1B 8B 56  B2 33 A7 31 30 30 00 A4  |0...l..V.3.100..|
00000FA0: 17 76 1B 80 00 D1 17 1E  23 99 22 11 50 52 45 53  |.v......#.".PRES|
00000FB0: 53 20 12 52 45 54 55 52  4E 92 20 54 4F 20 43 4F  |S .RETURN. TO CO|
00000FC0: 4E 54 49 4E 55 45 22 3A  47 53 24 B2 C7 28 31 33  |NTINUE":GS$..(13|
00000FD0: 29 00 F6 17 28 23 A1 47  24 3A 81 56 B2 31 A4 C3  |)...(#.G$:.V.1..|
00000FE0: 28 47 53 24 29 3A 8B 47  24 B2 CA 28 47 53 24 2C  |(GS$):.G$..(GS$,|
00000FF0: 56 2C 31 29 A7 8E 00 03  18 32 23 82 56 3A 89 39  |V,1).....2#.V:.9|
00001000: 30 30 30 00 18 18 10 27  84 31 35 2C 41 2C 41 24  |000....'.15,A,A$|
00001010: 3A 8B 41 B3 B2 31 A7 8E  00 2D 18 1A 27 99 41 24  |:.A..1...-..'.A$|
00001020: 3A 8B 41 B2 36 32 B0 41  B2 36 33 A7 8E 00 33 18  |:.A.62.A.63...3.|
00001030: 24 27 90 00 00 00                                 |$'....          |

..9....53281,12:.53280,12:.G(8)G(5)G(14)
:Z$.G(0):.15,8,15.B...."....           .
HOMEWORK. .RECORDS......"...            
TOM RICHARDSON...(.."..             DANA
 COLLEGE.J.2.."..             OCTOBER 19
83...F.BYTE.0:BIT.0:TE.0:SF.0:K.0:TM.0:K
K.0   :A.0:SU.0:V.0:VV.0:NS.0:I.0:J.0:D.
0.S.P.P$(0).".NO PAPER. :":P$(1)."SUBMIT
TED: "  :SS.0:DAY.0.R.Z.. DA$(64),A(50,6
4),SN$(50)...D.."...HOMEWORK RECORDS...N
.."...    PRESS A LETTER . . ..Q.X..".  
    A.  CREATE A NEW FILE......".      B
.  WORK AN EXISTING FILE......".      C.
  TERMINATE RUN.2...GS$."ABC":.9000:.V.3
...;...VV.V.Y...."...ENTER NAME OF FILE"
;.T. .."..*...";F$:.F$."*".......F$.H(F$
,15)......".VERIFY NAME: ."F$".: .Y./.N"
.D...GS$."YN":.9000:.V.2.150...H..7,8,7,
"0:N".F$.",S,R"......10000:.A.62. 7:.150
......#7,NS$:NS.F(NS$.Z$)./....NS.0. 7:.
"BAD FILE":.150.H....I.1.NS:.7,SN$(I):.I
.Z... 7:.VV.1.1700.I.... HOMEWORK......"
...  HOMEWORK RECORDS FOR "F$......"... 
     LOADING DATA--PLEASE STAND BY......
8,8,8,"0:H".F$.",S,R":.10000:.A.62. 8:.1
700......I.1.NS:.J.0.7:.#8,A$:A(I,J).F(A
$.Z$):.J:.I.1....#8,D$:D.F(D$.Z$).O.$..I
.1.D:.8,DA$(I):.I:D.D.1.V... 8.Z.L.."...
  HOMEWORK RECORDS FOR";F$...V..". PRESS
 A LETTER...J..".   A.  UPDATE (EXTEND) 
DATA"...T..".   B.  INSPECT/CORRECT AN E
NTRY"...~..".   C.  A DIFFERENT FILE....
..".   D.  TERMINATE".*...GS$."ABCD":.90
00.E....V.3000,5000,7000,7000.G...."...H
OMEWORK RECORDS FOR "F$......"...    SAV
ING DATA--PLEASE STAND BY...D..15,"S0:HW
K.BACKUP".F.N..15,"R0:HWK.BACKUP=H".F$.X
.X..15,"S0:H".F$......8,8,8,"0:H".F$.",S
,W"......I.1.NS:.J.0.7:.8,G(A(I,J));:.J:
.I.)....8,G(D.1);.A....I.1.D:.8,DA$(I):.
I.Q....8,"MARKER".`... 8:.SF.0........".
.    BACKUP COPY? .Y./.N...(.GS$."YN":.9
000:SF.0                :.V.2.1300...2..
"...INSERT SECOND DISK AND PRESS .RETURN
"...<.GS$.G(13):.9000:.1220...... SETUP 
HOMEWORK.A....8,8,8,"0:H".F$.",S,W":.100
00:.A.63. 8:.1000.C....I.1.NS:.J.0.7:.8,
G(0);:.J:.I.P.B..8,G(1);...L..8,"MARKER"
...V. 8:.1000...P.. STRING SEARCH--NAMES
...Z.SS.C(SS$):.I.1.NS.X....J.1.(C(SN$(I
)).SS.1)...... SS$.J(SN$(I),J,SS).......
.J:.I:I.0:....4.. STRING SEARCH--DATES.3
.>.SS.C(SS$):.I.1.D.M.H..J.1.(C(DA$(I)).
SS.1).H.R.. SS$.J(DA$(I),J,SS)...X.\..J:
.I:I.0:.......  UPDATE RECORDS...B.."...
  HOMEWORK RECORDS FOR ";F$...L.."..LAST
 RECORD WAS #"D"., "DA$(D):D.D.1...V..".
.ENTER NOTE ON NEW RECORD #"D;:." . *...
";DA$(D)."...DAY.D.8.&.BYTE..((DAY.1).8)
.V.0.BIT.DAY.BYTE.8.1:TE.2.BIT.|.:.."...
RECORD SUBMISSION OF "DA$(D)...D.GS$."NY
":."..PRESS .N. IF NO PAPER WAS SUBMITTE
D,...N.."     PRESS .Y. IF A PAPER WAS S
UBMITTED...X..I.1.NS...B.:.H(SN$(I),4)."
DROP".3210.=.L.:.".........      "SN$(I)
"                   ".R.V.:.9000:.V.1.32
10.P...:A(I,BYTE).(A(I,BYTE).TE).W...:..
....SF.1:.1100......  CORRECT AN ENTRY.V
...."...HOMEWORK INSPECTION/CORRECTION F
OR ":.".   "F$......"..  DO IT BY .S.TUD
ENT......".      OR BY .N.OTE?.....GS$."
SN":.9000:.V.5100,5700.S...."..NAME OF S
TUDENT  . *...";SS$.E....SS$."*".1100.O.
...2000......I.0..".NO SUCH STUDENT":.51
00......"...RECORD OF ."SN$(I)"......"..
PRESS .X. IF BAD,"             :GS$."X".
G(13):SU.0...".."   PRESS .RETURN. IF OK
"...,..J.1.D...6.DAY.J.A.@.BYTE..((DAY.1
).8):TM.A(I,BYTE)._.J.BIT.DAY.BYTE.8.1:T
E.2.BIT.X.T.K.(TM.TE).TE:SU.SU.K...^..".
........"P$(K)DA$(J)"                   
                ".M.H..9000:.V.2.5520...
R..K.0.TM.TM.TE...|..K.1.TM.TM.TE.....A(
I,BYTE).TM:SF.1.......=...."."SU"SUBMISS
IONS OUT OF"D"SESSIONS":.8990.G....5000.
I.D.."..DESIRED NOTE  . *...";SS$.{.X..S
S$."*".1100...B..2100...L..I.0..".NO SUC
H NOTE":.5700.....DAY.I:SU.0.J...BYTE..(
(DAY.1).8).....BIT.DAY.BYTE.8.1:TE.2.BIT
.'.F.."...RECORD OF "DA$(I)".  PRESS .X.
 IF BAD,":GS$."X".G(13).F.P.."   PRESS .
RETURN. IF OK".S.Z..KK.1.NS.Q....H(SN$(K
K),4)."DROP".5920.....TM.A(KK,BYTE):K.(T
M.TE).TE:SU.SU.K.Y...."......."P$(K)SN$(
KK)"                                    
"......9000:.V.2.5920......K.0.TM.TM.TE.
.....K.1.TM.TM.TE.(...A(KK,BYTE).TM:SF.1
... ...[.*.."."SU"SUBMITTED FOR THIS SES
SION":.8990.E.4..5000...X..  NEW FILE, T
ERMINATE...B..SF..0..1200...L..V.3.100..
.V...Q..#.".PRESS .RETURN. TO CONTINUE":
GS$.G(13)...(#.G$:.V.1.C(GS$):.G$.J(GS$,
V,1).....2#.V:.9000....'.15,A,A$:.A..1..
.-..'.A$:.A.62.A.63...3.$'....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL