GBOOKA

00000000: 01 04 36 04 00 00 9C 3A  97 35 39 34 36 38 2C 31  |..6....:.59468,1|
00000010: 32 3A 8B C2 28 31 29 B2  32 35 35 A7 94 22 47 42  |2:..(1).255.."GB|
00000020: 4F 4F 4B 20 41 22 3A 3A  24 58 2C 31 2C 22 47 42  |OOK A"::$X,1,"GB|
00000030: 4F 4F 4B 20 42 22 00 60  04 01 00 8F 20 47 42 4F  |OOK B".`.... GBO|
00000040: 4F 4B 41 20 43 4F 50 59  52 49 47 48 54 20 28 43  |OKA COPYRIGHT (C|
00000050: 29 20 31 39 38 30 20 48  41 4C 20 43 41 52 45 59  |) 1980 HAL CAREY|
00000060: 00 77 04 02 00 8F 20 39  30 30 32 20 42 45 52 43  |.w.... 9002 BERC|
00000070: 4C 41 49 52 20 52 44 00  91 04 03 00 8F 20 48 55  |LAIR RD...... HU|
00000080: 4E 54 53 56 49 4C 4C 45  20 41 4C 20 33 35 38 30  |NTSVILLE AL 3580|
00000090: 32 00 97 04 04 00 3A 00  B3 04 05 00 8F 20 43 55  |2.....:...... CU|
000000A0: 52 53 4F 52 20 23 31 39  20 41 50 52 49 4C 20 31  |RSOR #19 APRIL 1|
000000B0: 39 38 30 00 D4 04 06 00  8F 20 42 4F 58 20 35 35  |980...... BOX 55|
000000C0: 30 2C 20 47 4F 4C 45 54  41 2C 20 43 41 2E 20 39  |0, GOLETA, CA. 9|
000000D0: 33 30 31 37 00 DA 04 08  00 3A 00 F4 04 0A 00 8F  |3017.....:......|
000000E0: 20 41 53 20 4F 46 20 32  39 20 41 50 52 20 38 30  | AS OF 29 APR 80|
000000F0: 20 39 50 4D 00 15 05 5A  00 50 47 24 B2 22 47 42  | 9PM...Z.PG$."GB|
00000100: 4F 4F 4B 41 22 3A 4E 4D  24 B2 22 31 39 22 3A 8D  |OOKA":NM$."19":.|
00000110: 36 32 30 30 30 00 2A 05  64 00 46 44 25 B2 31 3A  |62000.*.d.FD%.1:|
00000120: 8F 20 49 2F 4F 20 55 4E  49 54 00 3A 05 BE 00 4E  |. I/O UNIT.:...N|
00000130: 53 B2 34 30 3A 4E 41 B2  31 35 00 5D 05 C8 00 86  |S.40:NA.15.]....|
00000140: 53 24 28 4E 53 29 2C 57  28 4E 41 29 2C 41 24 28  |S$(NS),W(NA),A$(|
00000150: 4E 41 29 2C 47 25 28 4E  53 2C 4E 41 29 00 82 05  |NA),G%(NS,NA)...|
00000160: FA 00 99 22 93 12 45 92  20 20 4D 4F 44 49 46 59  |..."..E.  MODIFY|
00000170: 20 45 58 49 53 54 49 4E  47 20 4E 41 4D 45 4C 49  | EXISTING NAMELI|
00000180: 53 54 00 A1 05 04 01 99  22 11 12 4E 92 20 20 57  |ST......"..N.  W|
00000190: 52 49 54 45 20 4E 45 57  20 4E 41 4D 45 4C 49 53  |RITE NEW NAMELIS|
000001A0: 54 00 B4 05 0E 01 A1 47  24 3A 8B 47 24 B2 22 22  |T......G$:.G$.""|
000001B0: 89 32 37 30 00 C4 05 18  01 8B 47 24 B2 22 45 22  |.270......G$."E"|
000001C0: 89 35 33 30 00 D4 05 22  01 8B 47 24 B2 22 4E 22  |.530..."..G$."N"|
000001D0: 89 33 30 35 00 DD 05 2C  01 89 32 37 30 00 14 06  |.305...,..270...|
000001E0: 31 01 99 22 93 11 11 4E  41 4D 45 20 4F 46 20 54  |1.."...NAME OF T|
000001F0: 48 49 53 20 43 4C 41 53  53 3F 20 22 3B 3A 8D 31  |HIS CLASS? ";:.1|
00000200: 30 37 30 3A 43 24 B2 49  4E 24 3A 41 24 28 31 29  |070:C$.IN$:A$(1)|
00000210: B2 22 2D 22 00 2C 06 36  01 99 22 93 57 52 49 54  |."-".,.6..".WRIT|
00000220: 45 20 4E 45 57 20 4E 41  4D 45 53 3A 00 3F 06 3A  |E NEW NAMES:.?.:|
00000230: 01 99 22 A2 A2 A2 A2 A2  A2 A2 A2 A2 A2 A2 A2 00  |..".............|
00000240: 6B 06 3B 01 99 22 12 20  53 4D 49 54 48 20 4A 4F  |k.;..". SMITH JO|
00000250: 48 4E 20 92 20 20 20 55  53 45 20 53 50 41 43 45  |HN .   USE SPACE|
00000260: 20 4E 4F 54 20 43 4F 4D  4D 41 21 00 97 06 3C 01  | NOT COMMA!...<.|
00000270: 99 22 12 A2 A2 A2 A2 A2  A2 A2 A2 A2 A2 A2 A2 92  |."..............|
00000280: 20 20 20 20 20 20 20 A3  A3 A3 A3 A3 20 20 20 20  |       .....    |
00000290: 20 A3 A3 A3 A3 A3 A3 00  C0 06 40 01 99 22 11 50  | .........@..".P|
000002A0: 52 45 53 53 20 12 52 45  54 55 52 4E 92 20 41 46  |RESS .RETURN. AF|
000002B0: 54 45 52 20 4C 41 53 54  20 45 4E 54 52 59 2E 11  |TER LAST ENTRY..|
000002C0: 00 F9 06 4A 01 54 53 B2  54 53 AA 31 3A 8B 54 53  |...J.TS.TS.1:.TS|
000002D0: B1 4E 53 A7 99 22 43 41  4E 27 54 20 54 41 4B 45  |.NS.."CAN'T TAKE|
000002E0: 20 41 4E 59 20 4D 4F 52  45 20 53 54 55 44 45 4E  | ANY MORE STUDEN|
000002F0: 54 53 2E 22 3A 89 33 36  30 00 18 07 4F 01 99 54  |TS.":.360...O..T|
00000300: 53 22 3A 20 22 3B 3A 8D  31 30 37 30 3A 8B 49 4E  |S": ";:.1070:.IN|
00000310: 24 B2 22 22 A7 33 36 30  00 27 07 54 01 53 24 28  |$."".360.'.T.S$(|
00000320: 54 53 29 B2 49 4E 24 00  47 07 5E 01 81 41 B2 31  |TS).IN$.G.^..A.1|
00000330: A4 54 41 3A 47 25 28 54  53 2C 41 29 B2 AB 31 3A  |.TA:G%(TS,A)..1:|
00000340: 82 41 3A 89 33 33 30 00  53 07 68 01 54 53 B2 54  |.A:.330.S.h.TS.T|
00000350: 53 AB 31 00 61 07 72 01  8D 39 38 30 3A 4D 4C B2  |S.1.a.r..980:ML.|
00000360: 30 00 7A 07 7C 01 99 22  93 22 43 24 22 11 11 22  |0.z.|.."."C$".."|
00000370: 3A 8B 54 53 B3 31 A7 34  33 30 00 86 07 86 01 81  |:.TS.1.430......|
00000380: 53 B2 31 A4 54 53 00 A9  07 90 01 99 53 3B 53 24  |S.1.TS......S;S$|
00000390: 28 53 29 3A 49 B2 C3 28  53 24 28 53 29 29 3A 8B  |(S):I..(S$(S)):.|
000003A0: 49 B1 4D 4C A7 4D 4C B2  49 00 B8 07 9A 01 81 49  |I.ML.ML.I......I|
000003B0: B2 31 A4 35 30 30 3A 82  00 BE 07 A4 01 82 00 D1  |.1.500:.........|
000003C0: 07 AE 01 99 22 11 12 4F  92 20 20 49 46 20 4F 4B  |...."..O.  IF OK|
000003D0: 2E 00 F2 07 B8 01 99 22  11 12 43 92 20 20 43 48  |......."..C.  CH|
000003E0: 41 4E 47 45 20 4F 52 20  41 44 44 20 41 20 4E 41  |ANGE OR ADD A NA|
000003F0: 4D 45 00 0C 08 BD 01 99  22 11 12 44 92 20 20 44  |ME......"..D.  D|
00000400: 45 4C 45 54 45 20 41 20  4E 41 4D 45 00 1F 08 C2  |ELETE A NAME....|
00000410: 01 A1 47 24 3A 8B 47 24  B2 22 22 89 34 35 30 00  |..G$:.G$."".450.|
00000420: 2F 08 CC 01 8B 47 24 B2  22 4F 22 89 36 37 30 00  |/....G$."O".670.|
00000430: 40 08 D1 01 8B 47 24 B2  22 44 22 A7 31 33 30 30  |@....G$."D".1300|
00000440: 00 50 08 D6 01 8B 47 24  B2 22 43 22 89 34 39 30  |.P....G$."C".490|
00000450: 00 59 08 E0 01 89 34 35  30 00 81 08 EA 01 99 22  |.Y....450......"|
00000460: 11 53 54 55 44 45 4E 54  20 23 20 28 12 52 45 54  |.STUDENT # (.RET|
00000470: 55 52 4E 92 20 49 46 20  4E 45 57 29 20 3F 20 22  |URN. IF NEW) ? "|
00000480: 3B 00 A3 08 ED 01 8D 31  30 37 30 3A 53 B2 C5 28  |;......1070:S..(|
00000490: 49 4E 24 29 3A 8B 49 4E  24 B2 22 22 A7 53 B2 54  |IN$):.IN$."".S.T|
000004A0: 53 AA 31 00 CF 08 EF 01  8B 49 4E 24 B2 22 22 AF  |S.1......IN$."".|
000004B0: 54 53 B2 4E 53 A7 99 22  4E 4F 20 52 4F 4F 4D 20  |TS.NS.."NO ROOM |
000004C0: 46 4F 52 20 4D 4F 52 45  2E 22 3A 89 33 37 30 00  |FOR MORE.":.370.|
000004D0: 06 09 F1 01 8B 53 B3 31  A7 99 22 11 4E 4F 20 53  |.....S.1..".NO S|
000004E0: 55 43 48 20 53 54 55 44  45 4E 54 20 4E 55 4D 42  |UCH STUDENT NUMB|
000004F0: 45 52 2E 22 3A 81 49 B2  31 A4 31 35 30 30 3A 82  |ER.":.I.1.1500:.|
00000500: 49 3A 89 33 37 30 00 28  09 F4 01 8B 20 53 B3 B2  |I:.370.(.... S..|
00000510: 54 53 20 A7 99 22 11 4F  4C 44 20 4E 41 4D 45 3A  |TS ..".OLD NAME:|
00000520: 20 22 3B 53 24 28 53 29  00 54 09 F9 01 8B 53 B1  | ";S$(S).T....S.|
00000530: 54 53 A7 54 53 B2 54 53  AA 31 3A 53 B2 54 53 3A  |TS.TS.TS.1:S.TS:|
00000540: 81 41 B2 31 A4 54 41 3A  47 25 28 53 2C 41 29 B2  |.A.1.TA:G%(S,A).|
00000550: AB 31 3A 82 00 7C 09 FE  01 99 22 11 4E 45 57 20  |.1:..|....".NEW |
00000560: 4E 41 4D 45 20 49 53 20  3F 20 22 3B 3A 8D 31 30  |NAME IS ? ";:.10|
00000570: 37 30 3A 53 24 28 53 29  B2 49 4E 24 00 85 09 08  |70:S$(S).IN$....|
00000580: 02 89 33 37 30 00 8B 09  12 02 3A 00 9B 09 26 02  |..370.....:...&.|
00000590: 46 24 B2 22 47 52 41 44  45 53 22 00 AA 09 30 02  |F$."GRADES"...0.|
000005A0: 44 52 B2 30 3A 8D 31 38  30 30 00 B4 09 44 02 84  |DR.0:.1800...D..|
000005B0: 31 2C 43 24 00 BE 09 4E  02 84 31 2C 54 53 00 C8  |1,C$...N..1,TS..|
000005C0: 09 58 02 84 31 2C 54 41  00 FD 09 5D 02 99 3A 99  |.X..1,TA...]..:.|
000005D0: 54 53 3B 22 20 53 54 55  44 45 4E 54 53 2C 22 3B  |TS;" STUDENTS,";|
000005E0: 54 41 3B 22 20 41 53 53  49 47 4E 4D 45 4E 54 53  |TA;" ASSIGNMENTS|
000005F0: 22 3A 81 49 B2 31 A4 32  30 30 3A 82 49 00 14 0A  |":.I.1.200:.I...|
00000600: 62 02 81 53 B2 31 A4 54  53 3A 84 31 2C 53 24 28  |b..S.1.TS:.1,S$(|
00000610: 53 29 3A 82 00 2B 0A 6C  02 81 41 B2 31 A4 54 41  |S):..+.l..A.1.TA|
00000620: 3A 84 31 2C 41 24 28 41  29 3A 82 00 41 0A 76 02  |:.1,A$(A):..A.v.|
00000630: 81 41 B2 31 A4 54 41 3A  84 31 2C 57 28 41 29 3A  |.A.1.TA:.1,W(A):|
00000640: 82 00 64 0A 80 02 81 41  B2 31 A4 54 41 3A 81 53  |..d....A.1.TA:.S|
00000650: B2 31 A4 54 53 3A 84 31  2C 47 25 28 53 2C 41 29  |.1.TS:.1,G%(S,A)|
00000660: 3A 82 3A 82 00 6E 0A 8A  02 8D 32 30 30 30 00 77  |:.:..n....2000.w|
00000670: 0A 94 02 89 33 37 30 00  96 0A 9E 02 99 22 93 12  |....370......"..|
00000680: 50 92 20 20 54 4F 20 50  52 49 4E 54 20 48 41 52  |P.  TO PRINT HAR|
00000690: 44 43 4F 50 59 2E 00 B5  0A A8 02 99 22 11 12 53  |DCOPY......."..S|
000006A0: 92 20 20 54 4F 20 53 41  56 45 20 54 48 49 53 20  |.  TO SAVE THIS |
000006B0: 4C 49 53 54 2E 00 D9 0A  AD 02 99 22 11 12 41 92  |LIST......."..A.|
000006C0: 20 20 54 4F 20 41 42 41  4E 44 4F 4E 20 41 4E 59  |  TO ABANDON ANY|
000006D0: 20 43 48 41 4E 47 45 53  2E 00 EC 0A B2 02 A1 47  | CHANGES.......G|
000006E0: 24 3A 8B 47 24 B2 22 22  89 36 39 30 00 FC 0A BC  |$:.G$."".690....|
000006F0: 02 8B 47 24 B2 22 50 22  89 37 33 30 00 12 0B C1  |..G$."P".730....|
00000700: 02 8B 47 24 B2 22 41 22  A7 99 22 93 22 3A 89 39  |..G$."A"..".":.9|
00000710: 36 30 00 22 0B C6 02 8B  47 24 B2 22 53 22 89 38  |60."....G$."S".8|
00000720: 32 30 00 2B 0B D0 02 89  36 39 30 00 40 0B DA 02  |20.+....690.@...|
00000730: 99 22 93 50 55 54 20 49  4E 20 50 41 50 45 52 2E  |.".PUT IN PAPER.|
00000740: 00 6D 0B E4 02 99 22 11  48 49 54 20 20 50 20 20  |.m....".HIT  P  |
00000750: 57 48 45 4E 20 52 45 41  44 59 20 54 4F 20 50 52  |WHEN READY TO PR|
00000760: 49 4E 54 20 4E 41 4D 45  4C 49 53 54 2E 00 8D 0B  |INT NAMELIST....|
00000770: E9 02 54 24 B2 22 2E 22  3A 81 49 B2 31 A4 4D 4C  |..T$.".":.I.1.ML|
00000780: 3A 54 24 B2 54 24 AA 22  2E 22 3A 82 49 00 A0 0B  |:T$.T$.".":.I...|
00000790: EE 02 A1 47 24 3A 8B 47  24 B2 22 22 89 37 35 30  |...G$:.G$."".750|
000007A0: 00 A9 0B F8 02 9F 34 2C  34 00 B6 0B 02 03 98 34  |......4,4......4|
000007B0: 2C 43 24 3A 98 34 00 C2  0B 0C 03 81 53 B2 31 A4  |,C$:.4......S.1.|
000007C0: 54 53 00 D4 0B 11 03 8B  53 B3 31 30 A7 98 34 2C  |TS......S.10..4,|
000007D0: 22 20 22 3B 00 F5 0B 16  03 98 34 2C C4 28 53 29  |" ";......4,.(S)|
000007E0: 3B 22 20 22 3B C8 28 53  24 28 53 29 AA 54 24 2C  |;" ";.(S$(S).T$,|
000007F0: 4D 4C AA 31 29 00 FB 0B  20 03 82 00 07 0C 2A 03  |ML.1)... .....*.|
00000800: A0 34 3A 89 34 33 30 00  0D 0C 34 03 3A 00 1D 0C  |.4:.430...4.:...|
00000810: 48 03 46 24 B2 22 47 52  41 44 45 53 22 00 33 0C  |H.F$."GRADES".3.|
00000820: 52 03 44 52 B2 31 3A 8D  31 38 30 30 3A 52 24 B2  |R.DR.1:.1800:R$.|
00000830: 43 52 24 00 46 0C 5C 03  98 31 2C 43 24 52 24 3B  |CR$.F.\..1,C$R$;|
00000840: 3A 8D 31 32 30 30 00 5A  0C 66 03 98 31 2C 54 53  |:.1200.Z.f..1,TS|
00000850: 3B 52 24 3B 3A 8D 31 32  30 30 00 6E 0C 70 03 98  |;R$;:.1200.n.p..|
00000860: 31 2C 54 41 3B 52 24 3B  3A 8D 31 32 30 30 00 8E  |1,TA;R$;:.1200..|
00000870: 0C 7A 03 81 53 B2 31 A4  54 53 3A 98 31 2C 53 24  |.z..S.1.TS:.1,S$|
00000880: 28 53 29 52 24 3B 3A 8D  31 32 30 30 3A 82 00 AE  |(S)R$;:.1200:...|
00000890: 0C 84 03 81 41 B2 31 A4  54 41 3A 98 31 2C 41 24  |....A.1.TA:.1,A$|
000008A0: 28 41 29 52 24 3B 3A 8D  31 32 30 30 3A 82 00 CD  |(A)R$;:.1200:...|
000008B0: 0C 8E 03 81 41 B2 31 A4  54 41 3A 98 31 2C 57 28  |....A.1.TA:.1,W(|
000008C0: 41 29 52 24 3B 3A 8D 31  32 30 30 3A 82 00 F9 0C  |A)R$;:.1200:....|
000008D0: 98 03 81 41 B2 31 A4 54  41 3A 81 53 B2 31 A4 54  |...A.1.TA:.S.1.T|
000008E0: 53 3A 98 31 2C 47 25 28  53 2C 41 29 52 24 3B 3A  |S:.1,G%(S,A)R$;:|
000008F0: 8D 31 32 30 30 3A 82 3A  82 00 03 0D A2 03 8D 32  |.1200:.:.......2|
00000900: 30 30 30 00 0E 0D AC 03  99 22 93 11 11 11 00 14  |000......"......|
00000910: 0D C0 03 80 00 20 0D D4  03 8B 54 53 B3 32 A7 8E  |..... ....TS.2..|
00000920: 00 33 0D D6 03 99 22 11  12 53 4F 52 54 49 4E 47  |.3...."..SORTING|
00000930: 2E 2E 2E 00 4E 0D D9 03  81 53 B2 32 A4 54 53 3A  |....N....S.2.TS:|
00000940: 53 24 B2 53 24 28 53 29  3A 4A B2 53 AB 31 00 6D  |S$.S$(S):J.S.1.m|
00000950: 0D DE 03 81 41 B2 31 A4  54 41 3A 47 25 28 30 2C  |....A.1.TA:G%(0,|
00000960: 41 29 B2 47 25 28 53 2C  41 29 3A 82 41 00 81 0D  |A).G%(S,A):.A...|
00000970: E8 03 8B 53 24 B1 B2 53  24 28 4A 29 A7 31 30 35  |...S$..S$(J).105|
00000980: 30 00 99 0D F2 03 4A 31  B2 4A AA 31 3A 53 24 28  |0.....J1.J.1:S$(|
00000990: 4A 31 29 B2 53 24 28 4A  29 00 B8 0D FC 03 81 41  |J1).S$(J)......A|
000009A0: B2 31 A4 54 41 3A 47 25  28 4A 31 2C 41 29 B2 47  |.1.TA:G%(J1,A).G|
000009B0: 25 28 4A 2C 41 29 3A 82  00 C8 0D 10 04 4A B2 4A  |%(J,A):......J.J|
000009C0: AB 31 3A 89 31 30 30 30  00 DD 0D 1A 04 4A 31 B2  |.1:.1000.....J1.|
000009D0: 4A AA 31 3A 53 24 28 4A  31 29 B2 53 24 00 02 0E  |J.1:S$(J1).S$...|
000009E0: 24 04 81 41 B2 31 A4 54  41 3A 47 25 28 4A 31 2C  |$..A.1.TA:G%(J1,|
000009F0: 41 29 B2 47 25 28 30 2C  41 29 3A 82 41 3A 82 53  |A).G%(0,A):.A:.S|
00000A00: 3A 8E 00 23 0E 2E 04 49  4E 24 B2 22 20 22 3A 5A  |:..#...IN$." ":Z|
00000A10: 54 B2 54 49 3A 5A 43 B2  32 3A 5A 44 24 B2 C7 28  |T.TI:ZC.2:ZD$..(|
00000A20: 32 30 29 00 38 0E 38 04  A1 5A 24 3A 8B 5A 24 B3  |20).8.8..Z$:.Z$.|
00000A30: B1 22 22 A7 31 31 30 35  00 68 0E 42 04 8B 5A 54  |."".1105.h.B..ZT|
00000A40: B3 B2 54 49 A7 99 CA 28  22 20 A6 22 2C 5A 43 2C  |..TI...(" .",ZC,|
00000A50: 31 29 3B 22 9D 22 3B 3A  5A 43 B2 33 AB 5A 43 3A  |1);".";:ZC.3.ZC:|
00000A60: 5A 54 B2 54 49 AA 31 35  00 72 0E 4C 04 89 31 30  |ZT.TI.15.r.L..10|
00000A70: 38 30 00 85 0E 51 04 8B  5A 24 B2 22 2C 22 A7 5A  |80...Q..Z$.",".Z|
00000A80: 24 B2 22 20 22 00 B4 0E  56 04 5A B2 C6 28 5A 24  |$." "...V.Z..(Z$|
00000A90: 29 3A 5A 4C B2 C3 28 49  4E 24 29 3A 8B 28 5A AF  |):ZL..(IN$):.(Z.|
00000AA0: 31 32 37 29 B3 33 32 A7  99 22 20 9D 22 3B 3A 89  |127).32.." .";:.|
00000AB0: 31 31 35 30 00 E4 0E 60  04 8B 46 4C AF 28 5A AF  |1150...`..FL.(Z.|
00000AC0: 31 32 37 29 B1 36 34 AF  28 5A AF 31 32 37 29 B3  |127).64.(Z.127).|
00000AD0: 39 31 A7 5A 24 B2 C7 28  28 5A AA 31 32 38 29 AF  |91.Z$..((Z.128).|
00000AE0: 32 35 35 29 00 F5 0E 6A  04 8B 5A 4C B1 32 35 34  |255)...j..ZL.254|
00000AF0: A7 31 30 38 30 00 10 0F  74 04 49 4E 24 B2 49 4E  |.1080...t.IN$.IN|
00000B00: 24 AA 5A 24 3A 99 5A 24  3B 5A 44 24 3B 5A 24 3B  |$.Z$:.Z$;ZD$;Z$;|
00000B10: 00 2F 0F 7E 04 8B 5A B2  31 33 A7 49 4E 24 B2 CA  |./.~..Z.13.IN$..|
00000B20: 28 49 4E 24 2C 32 29 3A  99 43 52 24 3B 3A 8E 00  |(IN$,2):.CR$;:..|
00000B30: 5A 0F 88 04 8B 5A B2 32  30 AF 5A 4C B1 31 A7 49  |Z....Z.20.ZL.1.I|
00000B40: 4E 24 B2 C8 28 49 4E 24  2C 5A 4C AB 31 29 3A 99  |N$..(IN$,ZL.1):.|
00000B50: 22 9D 22 3B 3A 89 31 30  38 30 00 8C 0F 92 04 8B  |".";:.1080......|
00000B60: 5A B2 31 34 31 A7 5A 24  B2 C7 28 AB 32 30 AC 28  |Z.141.Z$..(.20.(|
00000B70: 5A 4C B1 31 29 29 3A 81  5A B2 32 A4 5A 4C 3A 99  |ZL.1)):.Z.2.ZL:.|
00000B80: 5A 24 3B 3A 82 5A 3A 89  31 30 37 30 00 96 0F 9C  |Z$;:.Z:.1070....|
00000B90: 04 89 31 30 38 30 00 AF  0F B0 04 8B 54 49 AB 5A  |..1080......TI.Z|
00000BA0: 39 B3 32 30 B0 46 44 25  B2 38 A7 31 32 39 30 00  |9.20.FD%.8.1290.|
00000BB0: BF 0F BA 04 8B 46 44 25  B2 32 A7 31 32 36 30 00  |.....FD%.2.1260.|
00000BC0: CD 0F C4 04 97 35 39 34  31 31 2C 35 33 00 DC 0F  |.....59411,53...|
00000BD0: CE 04 81 5A 39 B2 31 A4  36 30 3A 82 00 EA 0F D8  |...Z9.1.60:.....|
00000BE0: 04 97 35 39 34 31 31 2C  36 31 00 F4 0F E2 04 89  |..59411,61......|
00000BF0: 31 32 39 30 00 0C 10 EC  04 97 35 39 34 35 36 2C  |1290......59456,|
00000C00: C2 28 35 39 34 35 36 29  AF 32 33 39 00 1B 10 F6  |.(59456).239....|
00000C10: 04 81 5A 39 B2 31 A4 36  30 3A 82 00 32 10 00 05  |..Z9.1.60:..2...|
00000C20: 97 35 39 34 35 36 2C C2  28 35 39 34 35 36 29 B0  |.59456,.(59456).|
00000C30: 31 36 00 3E 10 0A 05 5A  39 B2 54 49 3A 8E 00 5E  |16.>...Z9.TI:..^|
00000C40: 10 14 05 8B 54 53 B3 31  A7 99 22 11 4E 4F 20 53  |....TS.1..".NO S|
00000C50: 54 55 44 45 4E 54 53 22  3A 89 31 37 30 30 00 8F  |TUDENTS":.1700..|
00000C60: 10 1E 05 99 22 11 53 54  55 44 45 4E 54 20 23 20  |....".STUDENT # |
00000C70: 54 4F 20 44 45 4C 45 54  45 3F 20 22 3B 3A 8D 31  |TO DELETE? ";:.1|
00000C80: 30 37 30 3A 8B 49 4E 24  B2 22 22 A7 33 37 30 00  |070:.IN$."".370.|
00000C90: C0 10 28 05 53 B2 C5 28  49 4E 24 29 3A 8B 53 B3  |..(.S..(IN$):.S.|
00000CA0: 31 B0 53 B1 54 53 A7 99  22 11 4E 4F 53 55 43 48  |1.S.TS..".NOSUCH|
00000CB0: 20 53 54 55 44 45 4E 54  2E 22 3A 89 31 37 30 30  | STUDENT.":.1700|
00000CC0: 00 ED 10 32 05 53 24 28  53 29 B2 53 24 28 54 53  |...2.S$(S).S$(TS|
00000CD0: 29 3A 81 41 B2 31 A4 54  41 3A 47 25 28 53 2C 41  |):.A.1.TA:G%(S,A|
00000CE0: 29 B2 47 25 28 54 53 2C  41 29 3A 82 41 00 FE 10  |).G%(TS,A):.A...|
00000CF0: 3C 05 54 53 B2 54 53 AB  31 3A 89 33 37 30 00 16  |<.TS.TS.1:.370..|
00000D00: 11 A4 06 81 44 4C B2 31  A4 31 35 30 30 3A 82 44  |....DL.1.1500:.D|
00000D10: 4C 3A 89 33 37 30 00 26  11 08 07 8B 46 44 25 B2  |L:.370.&....FD%.|
00000D20: 38 A7 31 39 30 30 00 4F  11 12 07 99 22 11 52 45  |8.1900.O....".RE|
00000D30: 57 49 4E 44 20 54 41 50  45 22 46 44 25 22 41 4E  |WIND TAPE"FD%"AN|
00000D40: 44 20 50 52 45 53 53 20  12 52 45 54 55 52 4E 00  |D PRESS .RETURN.|
00000D50: 63 11 1C 07 A1 5A 24 3A  8B 5A 24 B2 22 22 A7 31  |c....Z$:.Z$."".1|
00000D60: 38 32 30 00 77 11 26 07  97 51 42 2C 31 32 32 3A  |820.w.&..QB,122:|
00000D70: 97 51 42 AA 31 2C 32 00  91 11 2B 07 8B 46 44 25  |.QB.1,2...+..FD%|
00000D80: B2 32 A7 97 51 42 2C 35  38 3A 97 51 42 AA 31 2C  |.2..QB,58:.QB.1,|
00000D90: 33 00 A2 11 30 07 9F 31  2C 46 44 25 2C 44 52 2C  |3...0..1,FD%,DR,|
00000DA0: 46 24 00 AC 11 3A 07 5A  39 B2 54 49 00 B2 11 44  |F$...:.Z9.TI...D|
00000DB0: 07 8E 00 DB 11 6C 07 46  24 B2 22 30 3A 22 AA 46  |.....l.F$."0:".F|
00000DC0: 24 3A 9F 31 35 2C 38 2C  31 35 3A 8B 44 52 B2 31  |$:.15,8,15:.DR.1|
00000DD0: A7 98 31 35 2C 22 53 22  3B 46 24 00 04 12 76 07  |..15,"S";F$...v.|
00000DE0: 46 24 B2 46 24 AA 22 2C  53 2C 22 AA CA 28 22 52  |F$.F$.",S,"..("R|
00000DF0: 57 22 2C 44 52 AA 31 2C  31 29 3A 9F 31 2C 38 2C  |W",DR.1,1):.1,8,|
00000E00: 32 2C 46 24 00 19 12 80  07 84 31 35 2C 45 52 2C  |2,F$......15,ER,|
00000E10: 45 52 24 2C 54 4B 2C 53  43 00 2C 12 8A 07 8B 45  |ER$,TK,SC.,....E|
00000E20: 52 B2 30 A7 45 52 24 B2  22 22 3A 8E 00 44 12 94  |R.0.ER$."":..D..|
00000E30: 07 99 22 11 22 45 52 3B  45 52 24 3B 54 4B 3B 53  |.."."ER;ER$;TK;S|
00000E40: 43 3A A0 31 00 6B 12 9E  07 99 22 11 46 49 58 20  |C:.1.k....".FIX |
00000E50: 50 52 4F 42 4C 45 4D 20  41 4E 44 20 54 59 50 45  |PROBLEM AND TYPE|
00000E60: 20 27 43 4F 4E 54 27 2E  22 3A 80 00 75 12 A8 07  | 'CONT'.":..u...|
00000E70: 89 31 39 31 30 00 87 12  D0 07 A0 31 3A 8B 46 44  |.1910......1:.FD|
00000E80: 25 B2 38 A7 A0 31 35 00  8D 12 DA 07 8E 00 A4 12  |%.8..15.........|
00000E90: 8C EB 99 22 93 22 3A 9C  3A 8D 36 30 34 30 30 3A  |...".":.:.60400:|
00000EA0: 89 31 30 30 00 B2 12 F0  EB 43 52 24 B2 C7 28 31  |.100.....CR$..(1|
00000EB0: 33 29 00 D0 12 FA EB 51  42 B2 32 31 34 3A 8B C2  |3).....QB.214:..|
00000EC0: 28 35 30 30 30 30 29 B2  30 A7 51 42 B2 32 34 33  |(50000).0.QB.243|
00000ED0: 00 D6 12 0E EC 8E 00 F0  12 54 EC 81 49 B2 31 A4  |.........T..I.1.|
00000EE0: 31 30 3A 99 22 C0 C0 C0  C0 22 3B 3A 82 49 3A 8E  |10:."....";:.I:.|
00000EF0: 00 17 13 30 F2 99 22 93  11 11 22 3B A3 39 29 3B  |...0.."...";.9);|
00000F00: 22 43 55 52 53 4F 52 20  23 22 3B 4E 4D 24 3B 22  |"CURSOR #";NM$;"|
00000F10: 20 20 22 3B 50 47 24 00  41 13 3A F2 99 22 11 20  |  ";PG$.A.:..". |
00000F20: 43 4F 50 59 52 49 47 48  54 20 28 43 29 20 31 39  |COPYRIGHT (C) 19|
00000F30: 38 30 20 20 42 59 20 48  41 4C 20 43 41 52 45 59  |80  BY HAL CAREY|
00000F40: 11 00 4C 13 44 F2 8D 36  30 35 30 30 00 77 13 4E  |..L.D..60500.w.N|
00000F50: F2 99 22 11 45 4E 54 45  52 20 41 4E 44 20 4D 4F  |..".ENTER AND MO|
00000F60: 44 49 46 59 20 4E 41 4D  45 53 20 49 4E 20 47 52  |DIFY NAMES IN GR|
00000F70: 41 44 45 42 4F 4F 4B 00  98 13 8A F2 99 22 11 50  |ADEBOOK......".P|
00000F80: 52 45 53 53 20 12 52 45  54 55 52 4E 92 20 54 4F  |RESS .RETURN. TO|
00000F90: 20 42 45 47 49 4E 22 3B  00 AD 13 94 F2 A1 54 24  | BEGIN";......T$|
00000FA0: 3A 8B 54 24 B2 22 22 A7  36 32 31 30 30 00 B8 13  |:.T$."".62100...|
00000FB0: 9E F2 89 36 30 33 30 30  00 00 00                 |...60300...     |

..6....:.59468,12:.B(1).255.."GBOOK A"::
$X,1,"GBOOK B".`.... GBOOKA COPYRIGHT (C
) 1980 HAL CAREY.W.... 9002 BERCLAIR RD.
..... HUNTSVILLE AL 35802.....:...... CU
RSOR #19 APRIL 1980.T.... BOX 550, GOLET
A, CA. 93017.Z...:...... AS OF 29 APR 80
 9PM...Z.PG$."GBOOKA":NM$."19":.62000.*.
D.FD%.1:. I/O UNIT.:...NS.40:NA.15.].H..
S$(NS),W(NA),A$(NA),G%(NS,NA)......"..E.
  MODIFY EXISTING NAMELIST......"..N.  W
RITE NEW NAMELIST......G$:.G$."".270.D..
..G$."E".530.T."..G$."N".305...,..270...
1.."...NAME OF THIS CLASS? ";:.1070:C$.I
N$:A$(1)."-".,.6..".WRITE NEW NAMES:.?.:
..".............K.;..". SMITH JOHN .   U
SE SPACE NOT COMMA!...<.."..............
       .....     .........@..".PRESS .RE
TURN. AFTER LAST ENTRY.....J.TS.TS.1:.TS
.NS.."CAN'T TAKE ANY MORE STUDENTS.":.36
0...O..TS": ";:.1070:.IN$."".360.'.T.S$(
TS).IN$.G.^..A.1.TA:G%(TS,A)..1:.A:.330.
S.H.TS.TS.1.A.R..980:ML.0.Z.|.."."C$".."
:.TS.1.430......S.1.TS......S;S$(S):I.C(
S$(S)):.I.ML.ML.I......I.1.500:........Q
...."..O.  IF OK......."..C.  CHANGE OR 
ADD A NAME......"..D.  DELETE A NAME...B
..G$:.G$."".450./.L..G$."O".670.@.Q..G$.
"D".1300.P.V..G$."C".490.Y....450......"
.STUDENT # (.RETURN. IF NEW) ? ";......1
070:S.E(IN$):.IN$."".S.TS.1.O....IN$."".
TS.NS.."NO ROOM FOR MORE.":.370......S.1
..".NO SUCH STUDENT NUMBER.":.I.1.1500:.
I:.370.(.... S..TS ..".OLD NAME: ";S$(S)
.T....S.TS.TS.TS.1:S.TS:.A.1.TA:G%(S,A).
.1:..|....".NEW NAME IS ? ";:.1070:S$(S)
.IN$......370.....:...&.F$."GRADES"...0.
DR.0:.1800...D..1,C$...N..1,TS.H.X..1,TA
...]..:.TS;" STUDENTS,";TA;" ASSIGNMENTS
":.I.1.200:.I...B..S.1.TS:.1,S$(S):..+.L
..A.1.TA:.1,A$(A):..A.V..A.1.TA:.1,W(A):
..D....A.1.TA:.S.1.TS:.1,G%(S,A):.:..N..
..2000.W....370......"..P.  TO PRINT HAR
DCOPY......."..S.  TO SAVE THIS LIST..Y.
..."..A.  TO ABANDON ANY CHANGES.......G
$:.G$."".690......G$."P".730...A..G$."A"
..".":.960.".F..G$."S".820.+.P..690.@.Z.
.".PUT IN PAPER..M....".HIT  P  WHEN REA
DY TO PRINT NAMELIST......T$.".":.I.1.ML
:T$.T$.".":.I. ....G$:.G$."".750......4,
4......4,C$:.4.B....S.1.TS.T....S.10..4,
" ";......4,D(S);" ";H(S$(S).T$,ML.1)...
 .....*. 4:.430...4.:...H.F$."GRADES".3.
R.DR.1:.1800:R$.CR$.F.\..1,C$R$;:.1200.Z
.F..1,TS;R$;:.1200.N.P..1,TA;R$;:.1200..
.Z..S.1.TS:.1,S$(S)R$;:.1200:.......A.1.
TA:.1,A$(A)R$;:.1200:..M....A.1.TA:.1,W(
A)R$;:.1200:.......A.1.TA:.S.1.TS:.1,G%(
S,A)R$;:.1200:.:.......2000......"......
..... .T..TS.2...3.V.."..SORTING....N.Y.
.S.2.TS:S$.S$(S):J.S.1.M....A.1.TA:G%(0,
A).G%(S,A):.A......S$..S$(J).1050.....J1
.J.1:S$(J1).S$(J)......A.1.TA:G%(J1,A).G
%(J,A):..H...J.J.1:.1000.....J1.J.1:S$(J
1).S$...$..A.1.TA:G%(J1,A).G%(0,A):.A:.S
:..#...IN$." ":ZT.TI:ZC.2:ZD$.G(20).8.8.
.Z$:.Z$.."".1105.H.B..ZT..TI..J(" .",ZC,
1);".";:ZC.3.ZC:ZT.TI.15.R.L..1080...Q..
Z$.",".Z$." "...V.Z.F(Z$):ZL.C(IN$):.(Z.
127).32.." .";:.1150...`..FL.(Z.127).64.
(Z.127).91.Z$.G((Z.128).255)...J..ZL.254
.1080...T.IN$.IN$.Z$:.Z$;ZD$;Z$;./.~..Z.
13.IN$.J(IN$,2):.CR$;:..Z....Z.20.ZL.1.I
N$.H(IN$,ZL.1):.".";:.1080......Z.141.Z$
.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:.1070....
..1080......TI.Z9.20.FD%.8.1290......FD%
.2.1260.M.D..59411,53...N..Z9.1.60:....X
..59411,61......1290......59456,B(59456)
.239......Z9.1.60:..2....59456,B(59456).
16.>...Z9.TI:..^....TS.1..".NO STUDENTS"
:.1700......".STUDENT # TO DELETE? ";:.1
070:.IN$."".370...(.S.E(IN$):.S.1.S.TS..
".NOSUCH STUDENT.":.1700...2.S$(S).S$(TS
):.A.1.TA:G%(S,A).G%(TS,A):.A...<.TS.TS.
1:.370......DL.1.1500:.DL:.370.&....FD%.
8.1900.O....".REWIND TAPE"FD%"AND PRESS 
.RETURN.C....Z$:.Z$."".1820.W.&..QB,122:
.QB.1,2...+..FD%.2..QB,58:.QB.1,3...0..1
,FD%,DR,F$...:.Z9.TI...D.....L.F$."0:".F
$:.15,8,15:.DR.1..15,"S";F$...V.F$.F$.",
S,".J("RW",DR.1,1):.1,8,2,F$......15,ER,
ER$,TK,SC.,....ER.0.ER$."":..D...."."ER;
ER$;TK;SC: 1.K....".FIX PROBLEM AND TYPE
 'CONT'.":..U....1910...P. 1:.FD%.8. 15.
..Z........".":.:.60400:.100.....CR$.G(1
3).P...QB.214:.B(50000).0.QB.243.V......
.T..I.1.10:."....";:.I:....0.."...";.9);
"CURSOR #";NM$;"  ";PG$.A.:..". COPYRIGH
T (C) 1980  BY HAL CAREY..L.D..60500.W.N
..".ENTER AND MODIFY NAMES IN GRADEBOOK.
.....".PRESS .RETURN. TO BEGIN";......T$
:.T$."".62100......60300...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL