ATTENDANCE.C
FILE INFORMATION
FILENAME(S): ATTENDANCE.C
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 2 disk(s)
FILE HASH
4d3fb9f1ac639f1478714d7cf7d999f20ff165a7f3e1be62eea0e2231a1af4b2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | ATTENDANCE.C | PRG | Treasure Chest - Plattfuss | 9 | 2 | DOWNLOAD FILE |
| TPUG APRIL 84 C | ATTENDANCE.C | PRG | Sailor, Ganheden | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
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 63 08 14 00 99 22 |:.15,8,15.c...."| 00000040: 93 11 11 11 20 20 20 20 20 20 20 20 20 20 12 C1 |.... ..| 00000050: D4 D4 C5 CE C4 C1 CE C3 C5 92 20 12 D2 C5 C3 CF |.......... .....| 00000060: D2 C4 D3 00 87 08 1E 00 99 22 11 11 11 20 20 20 |........."... | 00000070: 20 20 20 20 20 20 20 20 20 D4 4F 4D 20 D2 49 43 | .OM .IC| 00000080: 48 41 52 44 53 4F 4E 00 A9 08 28 00 99 22 11 11 |HARDSON...(.."..| 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 C4 41 4E | .AN| 000000A0: 41 20 C3 4F 4C 4C 45 47 45 00 CB 08 32 00 99 22 |A .OLLEGE...2.."| 000000B0: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 CF |.. .| 000000C0: 43 54 4F 42 45 52 20 31 39 38 33 00 1A 09 46 00 |CTOBER 1983...F.| 000000D0: 42 59 54 45 B2 30 3A 42 49 54 B2 30 3A 54 45 B2 |BYTE.0:BIT.0:TE.| 000000E0: 30 3A 53 46 B2 30 3A 4B B2 30 3A 54 4D B2 30 3A |0:SF.0:K.0:TM.0:| 000000F0: 4B 4B B2 30 20 20 20 3A 41 B2 30 3A 53 55 B2 30 |KK.0 :A.0:SU.0| 00000100: 3A 56 B2 30 3A 56 56 B2 30 3A 4E 53 B2 30 3A 49 |:V.0:VV.0:NS.0:I| 00000110: B2 30 3A 4A B2 30 3A 44 B2 30 00 51 09 50 00 50 |.0:J.0:D.0.Q.P.P| 00000120: 24 28 30 29 B2 22 12 41 42 53 45 4E 54 92 20 20 |$(0).".ABSENT. | 00000130: 3A 22 3A 50 24 28 31 29 B2 22 50 52 45 53 45 4E |:":P$(1)."PRESEN| 00000140: 54 20 3A 22 20 20 3A 53 53 B2 30 3A 44 41 59 B2 |T :" :SS.0:DAY.| 00000150: 30 00 70 09 5A 00 86 20 44 41 24 28 36 34 29 2C |0.p.Z.. DA$(64),| 00000160: 41 28 35 30 2C 36 34 29 2C 53 4E 24 28 35 30 29 |A(50,64),SN$(50)| 00000170: 00 8C 09 64 00 99 22 93 11 11 C1 D4 D4 C5 CE C4 |...d..".........| 00000180: C1 CE C3 C5 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 6B 0B E8 03 8F |.VV.1.1700.k....| 00000360: 20 41 54 54 45 4E 44 41 4E 43 45 00 91 0B F2 03 | ATTENDANCE.....| 00000370: 99 22 93 11 11 20 20 C1 D4 D4 C5 CE C4 C1 CE C3 |."... .........| 00000380: C5 A0 D2 C5 C3 CF D2 C4 D3 20 46 4F 52 20 22 46 |......... FOR "F| 00000390: 24 00 BE 0B FC 03 99 22 11 11 11 20 20 20 20 20 |$......"... | 000003A0: 20 4C 4F 41 44 49 4E 47 20 44 41 54 41 2D 2D 50 | LOADING DATA--P| 000003B0: 4C 45 41 53 45 20 53 54 41 4E 44 20 42 59 00 EF |LEASE STAND BY..| 000003C0: 0B 06 04 9F 38 2C 38 2C 38 2C 22 30 3A 41 22 AA |....8,8,8,"0:A".| 000003D0: 46 24 AA 22 2C 53 2C 52 22 3A 8D 31 30 30 30 30 |F$.",S,R":.10000| 000003E0: 3A 8B 41 B2 36 32 A7 A0 38 3A 89 31 37 30 30 00 |:.A.62..8:.1700.| 000003F0: 1F 0C 10 04 81 49 B2 31 A4 4E 53 3A 81 4A B2 30 |.....I.1.NS:.J.0| 00000400: A4 37 3A A1 23 38 2C 41 24 3A 41 28 49 2C 4A 29 |.7:.#8,A$:A(I,J)| 00000410: B2 C6 28 41 24 AA 5A 24 29 3A 82 4A 3A 82 49 00 |..(A$.Z$):.J:.I.| 00000420: 35 0C 1A 04 A1 23 38 2C 44 24 3A 44 B2 C6 28 44 |5....#8,D$:D..(D| 00000430: 24 AA 5A 24 29 00 53 0C 24 04 81 49 B2 31 A4 44 |$.Z$).S.$..I.1.D| 00000440: 3A 84 38 2C 44 41 24 28 49 29 3A 82 49 3A 44 B2 |:.8,DA$(I):.I:D.| 00000450: 44 AB 31 00 5A 0C 2E 04 A0 38 00 80 0C 4C 04 99 |D.1.Z....8...L..| 00000460: 22 93 11 11 20 20 C1 D4 D4 C5 CE C4 C1 CE C3 C5 |"... ..........| 00000470: A0 D2 C5 C3 CF D2 C4 D3 A0 46 4F 52 22 3B 46 24 |.........FOR";F$| 00000480: 00 97 0C 56 04 99 22 11 20 50 52 45 53 53 20 41 |...V..". PRESS A| 00000490: 20 4C 45 54 54 45 52 00 BB 0C 6A 04 99 22 11 20 | LETTER...j..". | 000004A0: 20 20 41 2E 20 20 55 50 44 41 54 45 20 28 45 58 | A. UPDATE (EX| 000004B0: 54 45 4E 44 29 20 44 41 54 41 22 00 E3 0C 74 04 |TEND) DATA"...t.| 000004C0: 99 22 11 20 20 20 42 2E 20 20 49 4E 53 50 45 43 |.". B. INSPEC| 000004D0: 54 2F 43 4F 52 52 45 43 54 20 41 4E 20 45 4E 54 |T/CORRECT AN ENT| 000004E0: 52 59 22 00 02 0D 7E 04 99 22 11 20 20 20 43 2E |RY"...~..". C.| 000004F0: 20 20 41 20 44 49 46 46 45 52 45 4E 54 20 46 49 | A DIFFERENT FI| 00000500: 4C 45 00 1B 0D 88 04 99 22 11 20 20 20 44 2E 20 |LE......". D. | 00000510: 20 54 45 52 4D 49 4E 41 54 45 22 00 30 0D 92 04 | TERMINATE".0...| 00000520: 47 53 24 B2 22 41 42 43 44 22 3A 8D 39 30 30 30 |GS$."ABCD":.9000| 00000530: 00 4B 0D 9C 04 91 56 89 33 30 30 30 2C 35 30 30 |.K....V.3000,500| 00000540: 30 2C 37 30 30 30 2C 37 30 30 30 00 6F 0D B0 04 |0,7000,7000.o...| 00000550: 99 22 93 11 11 C1 D4 D4 C5 CE C4 C1 CE C3 C5 A0 |."..............| 00000560: D2 C5 C3 CF D2 C4 D3 A0 46 4F 52 20 22 46 24 00 |........FOR "F$.| 00000570: 99 0D BA 04 99 22 11 11 11 20 20 20 20 53 41 56 |....."... SAV| 00000580: 49 4E 47 20 44 41 54 41 2D 2D 50 4C 45 41 53 45 |ING DATA--PLEASE| 00000590: 20 53 54 41 4E 44 20 42 59 00 B1 0D C4 04 98 31 | STAND BY......1| 000005A0: 35 2C 22 53 30 3A 41 54 54 2E 42 41 43 4B 55 50 |5,"S0:ATT.BACKUP| 000005B0: 22 00 CE 0D CE 04 98 31 35 2C 22 52 30 3A 41 54 |"......15,"R0:AT| 000005C0: 54 2E 42 41 43 4B 55 50 3D 41 22 AA 46 24 00 E0 |T.BACKUP=A".F$..| 000005D0: 0D D8 04 98 31 35 2C 22 53 30 3A 41 22 AA 46 24 |....15,"S0:A".F$| 000005E0: 00 FB 0D E2 04 9F 38 2C 38 2C 38 2C 22 30 3A 41 |......8,8,8,"0:A| 000005F0: 22 AA 46 24 AA 22 2C 53 2C 57 22 00 22 0E EC 04 |".F$.",S,W"."...| 00000600: 81 49 B2 31 A4 4E 53 3A 81 4A B2 30 A4 37 3A 98 |.I.1.NS:.J.0.7:.| 00000610: 38 2C C7 28 41 28 49 2C 4A 29 29 3B 3A 82 4A 3A |8,.(A(I,J));:.J:| 00000620: 82 49 00 31 0E F6 04 98 38 2C C7 28 44 AA 31 29 |.I.1....8,.(D.1)| 00000630: 3B 00 49 0E 00 05 81 49 B2 31 A4 44 3A 98 38 2C |;.I....I.1.D:.8,| 00000640: 44 41 24 28 49 29 3A 82 49 00 59 0E 0A 05 98 38 |DA$(I):.I.Y....8| 00000650: 2C 22 4D 41 52 4B 45 52 22 00 68 0E 14 05 A0 38 |,"MARKER".h....8| 00000660: 3A 8B 53 46 B2 30 A7 8E 00 88 0E 1E 05 99 22 11 |:.SF.0........".| 00000670: 11 20 20 20 20 C2 41 43 4B 55 50 20 43 4F 50 59 |. .ACKUP COPY| 00000680: 3F 20 12 59 92 2F 12 4E 00 BA 0E 28 05 47 53 24 |? .Y./.N...(.GS$| 00000690: B2 22 59 4E 22 3A 8D 39 30 30 30 3A 53 46 B2 30 |."YN":.9000:SF.0| 000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006B0: 3A 8B 56 B2 32 A7 31 33 30 30 00 E9 0E 32 05 99 |:.V.2.1300...2..| 000006C0: 22 11 11 11 C9 4E 53 45 52 54 20 53 45 43 4F 4E |"....NSERT SECON| 000006D0: 44 20 44 49 53 4B 20 41 4E 44 20 50 52 45 53 53 |D DISK AND PRESS| 000006E0: 20 12 52 45 54 55 52 4E 22 00 03 0F 3C 05 47 53 | .RETURN"...<.GS| 000006F0: 24 B2 C7 28 31 33 29 3A 8D 39 30 30 30 3A 89 31 |$..(13):.9000:.1| 00000700: 32 32 30 00 1A 0F A4 06 8F 20 53 45 54 55 50 20 |220...... SETUP | 00000710: 41 54 54 45 4E 44 41 4E 43 45 00 4B 0F AE 06 9F |ATTENDANCE.K....| 00000720: 38 2C 38 2C 38 2C 22 30 3A 41 22 AA 46 24 AA 22 |8,8,8,"0:A".F$."| 00000730: 2C 53 2C 57 22 3A 8D 31 30 30 30 30 3A 8B 41 B2 |,S,W":.10000:.A.| 00000740: 36 33 A7 A0 38 3A 89 31 30 30 30 00 6D 0F B8 06 |63..8:.1000.m...| 00000750: 81 49 B2 31 A4 4E 53 3A 81 4A B2 30 A4 37 3A 98 |.I.1.NS:.J.0.7:.| 00000760: 38 2C C7 28 30 29 3B 3A 82 4A 3A 82 49 00 7A 0F |8,.(0);:.J:.I.z.| 00000770: C2 06 98 38 2C C7 28 31 29 3B 00 8A 0F CC 06 98 |...8,.(1);......| 00000780: 38 2C 22 4D 41 52 4B 45 52 22 00 97 0F D6 06 A0 |8,"MARKER"......| 00000790: 38 3A 89 31 30 30 30 00 B2 0F D0 07 8F 20 53 54 |8:.1000...... ST| 000007A0: 52 49 4E 47 20 53 45 41 52 43 48 2D 2D 4E 41 4D |RING SEARCH--NAM| 000007B0: 45 53 00 C8 0F DA 07 53 53 B2 C3 28 53 53 24 29 |ES.....SS..(SS$)| 000007C0: 3A 81 49 B2 31 A4 4E 53 00 E2 0F E4 07 81 4A B2 |:.I.1.NS......J.| 000007D0: 31 A4 28 C3 28 53 4E 24 28 49 29 29 AB 53 53 AA |1.(.(SN$(I)).SS.| 000007E0: 31 29 00 FD 0F EE 07 8B 20 53 53 24 B2 CA 28 53 |1)...... SS$..(S| 000007F0: 4E 24 28 49 29 2C 4A 2C 53 53 29 A7 8E 00 0D 10 |N$(I),J,SS).....| 00000800: F8 07 82 4A 3A 82 49 3A 49 B2 30 3A 8E 00 28 10 |...J:.I:I.0:..(.| 00000810: 34 08 8F 20 53 54 52 49 4E 47 20 53 45 41 52 43 |4.. STRING SEARC| 00000820: 48 2D 2D 44 41 54 45 53 00 3D 10 3E 08 53 53 B2 |H--DATES.=.>.SS.| 00000830: C3 28 53 53 24 29 3A 81 49 B2 31 A4 44 00 57 10 |.(SS$):.I.1.D.W.| 00000840: 48 08 81 4A B2 31 A4 28 C3 28 44 41 24 28 49 29 |H..J.1.(.(DA$(I)| 00000850: 29 AB 53 53 AA 31 29 00 72 10 52 08 8B 20 53 53 |).SS.1).r.R.. SS| 00000860: 24 B2 CA 28 44 41 24 28 49 29 2C 4A 2C 53 53 29 |$..(DA$(I),J,SS)| 00000870: A7 8E 00 82 10 5C 08 82 4A 3A 82 49 3A 49 B2 30 |.....\..J:.I:I.0| 00000880: 3A 8E 00 98 10 B8 0B 8F 20 20 55 50 44 41 54 45 |:....... UPDATE| 00000890: 20 52 45 43 4F 52 44 53 00 BF 10 C2 0B 99 22 93 | RECORDS......".| 000008A0: 11 11 20 20 C1 D4 D4 C5 CE C4 C1 CE C3 C5 A0 D2 |.. ............| 000008B0: C5 C3 CF D2 C4 D3 A0 46 4F 52 20 22 3B 46 24 00 |.......FOR ";F$.| 000008C0: EC 10 CC 0B 99 22 11 11 4C 41 53 54 20 52 45 43 |....."..LAST REC| 000008D0: 4F 52 44 20 57 41 53 20 23 22 44 22 9D 2C 20 22 |ORD WAS #"D"., "| 000008E0: 44 41 24 28 44 29 3A 44 B2 44 AA 31 00 24 11 D6 |DA$(D):D.D.1.$..| 000008F0: 0B 99 22 11 11 C5 4E 54 45 52 20 44 41 54 45 20 |.."...NTER DATE | 00000900: 4F 46 20 4E 45 57 20 52 45 43 4F 52 44 20 23 22 |OF NEW RECORD #"| 00000910: 44 3B 3A 85 22 20 9D 20 2A 9D 9D 9D 22 3B 44 41 |D;:." . *...";DA| 00000920: 24 28 44 29 00 2E 11 1C 0C 44 41 59 B2 44 00 44 |$(D).....DAY.D.D| 00000930: 11 26 0C 42 59 54 45 B2 B5 28 28 44 41 59 AB 31 |.&.BYTE..((DAY.1| 00000940: 29 AD 38 29 00 62 11 30 0C 42 49 54 B2 44 41 59 |).8).b.0.BIT.DAY| 00000950: AB 42 59 54 45 AC 38 AB 31 3A 54 45 B2 32 AE 42 |.BYTE.8.1:TE.2.B| 00000960: 49 54 00 86 11 3A 0C 99 22 93 11 11 D2 C5 C3 CF |IT...:..".......| 00000970: D2 C4 20 D0 D2 C5 D3 C5 CE C3 C5 20 4F 4E 20 22 |.. ........ ON "| 00000980: 44 41 24 28 44 29 00 BC 11 44 0C 47 53 24 B2 22 |DA$(D)...D.GS$."| 00000990: 41 50 22 3A 99 22 11 11 50 52 45 53 53 20 12 41 |AP":."..PRESS .A| 000009A0: 92 20 49 46 20 54 48 45 20 53 54 55 44 45 4E 54 |. IF THE STUDENT| 000009B0: 20 57 41 53 20 41 42 53 45 4E 54 2C 00 E3 11 4E | WAS ABSENT,...N| 000009C0: 0C 99 22 20 20 20 20 20 50 52 45 53 53 20 12 50 |.." PRESS .P| 000009D0: 92 20 49 46 20 48 45 20 57 41 53 20 50 52 45 53 |. IF HE WAS PRES| 000009E0: 45 4E 54 00 EF 11 58 0C 81 49 B2 31 A4 4E 53 00 |ENT...X..I.1.NS.| 000009F0: 0D 12 62 0C 3A 8B C8 28 53 4E 24 28 49 29 2C 34 |..b.:..(SN$(I),4| 00000A00: 29 B2 22 44 52 4F 50 22 A7 33 32 31 30 00 40 12 |)."DROP".3210.@.| 00000A10: 6C 0C 3A 99 22 13 11 11 11 11 11 11 11 11 20 20 |l.:."......... | 00000A20: 20 20 20 20 22 53 4E 24 28 49 29 22 20 20 20 20 | "SN$(I)" | 00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000A40: 00 55 12 76 0C 3A 8D 39 30 30 30 3A 8B 56 B2 31 |.U.v.:.9000:.V.1| 00000A50: A7 33 32 31 30 00 73 12 80 0C 3A 41 28 49 2C 42 |.3210.s...:A(I,B| 00000A60: 59 54 45 29 B2 28 41 28 49 2C 42 59 54 45 29 B0 |YTE).(A(I,BYTE).| 00000A70: 54 45 29 00 7A 12 8A 0C 3A 82 00 89 12 94 0C 53 |TE).z...:......S| 00000A80: 46 B2 31 3A 89 31 31 30 30 00 A1 12 88 13 8F 20 |F.1:.1100...... | 00000A90: 20 43 4F 52 52 45 43 54 20 41 4E 20 45 4E 54 52 | CORRECT AN ENTR| 00000AA0: 59 00 DB 12 92 13 99 22 93 11 11 C1 D4 D4 C5 CE |Y......"........| 00000AB0: C4 C1 CE C3 C5 A0 C9 CE D3 D0 C5 C3 D4 C9 CF CE |................| 00000AC0: 2F C3 CF D2 D2 C5 C3 D4 C9 CF CE A0 46 4F 52 20 |/...........FOR | 00000AD0: 22 3A 99 22 11 20 20 20 22 46 24 00 F8 12 9C 13 |":.". "F$.....| 00000AE0: 99 22 11 11 20 20 44 4F 20 49 54 20 42 59 20 12 |.".. DO IT BY .| 00000AF0: 53 92 54 55 44 45 4E 54 00 13 13 A6 13 99 22 11 |S.TUDENT......".| 00000B00: 20 20 20 20 20 20 4F 52 20 42 59 20 12 44 92 41 | OR BY .D.A| 00000B10: 54 45 3F 00 33 13 B0 13 47 53 24 B2 22 53 44 22 |TE?.3...GS$."SD"| 00000B20: 3A 8D 39 30 30 30 3A 91 56 89 35 31 30 30 2C 35 |:.9000:.V.5100,5| 00000B30: 37 30 30 00 58 13 EC 13 85 22 11 11 4E 41 4D 45 |700.X...."..NAME| 00000B40: 20 4F 46 20 53 54 55 44 45 4E 54 20 20 9D 20 2A | OF STUDENT . *| 00000B50: 9D 9D 9D 22 3B 53 53 24 00 6A 13 00 14 8B 53 53 |...";SS$.j....SS| 00000B60: 24 B2 22 2A 22 A7 31 31 30 30 00 74 13 0A 14 8D |$."*".1100.t....| 00000B70: 32 30 30 30 00 97 13 14 14 8B 49 B2 30 A7 99 22 |2000......I.0.."| 00000B80: 11 4E 4F 20 53 55 43 48 20 53 54 55 44 45 4E 54 |.NO SUCH STUDENT| 00000B90: 22 3A 89 35 31 30 30 00 B4 13 18 15 99 22 93 11 |":.5100......"..| 00000BA0: 11 52 45 43 4F 52 44 20 4F 46 20 12 22 53 4E 24 |.RECORD OF ."SN$| 00000BB0: 28 49 29 22 00 EF 13 1D 15 99 22 11 11 50 52 45 |(I)"......"..PRE| 00000BC0: 53 53 20 12 58 92 20 49 46 20 42 41 44 2C 22 20 |SS .X. IF BAD," | 00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 47 53 24 | :GS$| 00000BE0: B2 22 58 22 AA C7 28 31 33 29 3A 53 55 B2 30 00 |."X"..(13):SU.0.| 00000BF0: 0E 14 22 15 99 22 20 20 20 50 52 45 53 53 20 12 |..".." PRESS .| 00000C00: 52 45 54 55 52 4E 92 20 49 46 20 4F 4B 22 00 19 |RETURN. IF OK"..| 00000C10: 14 2C 15 81 4A B2 31 A4 44 00 23 14 36 15 44 41 |.,..J.1.D.#.6.DA| 00000C20: 59 B2 4A 00 46 14 40 15 42 59 54 45 B2 B5 28 28 |Y.J.F.@.BYTE..((| 00000C30: 44 41 59 AB 31 29 AD 38 29 3A 54 4D B2 41 28 49 |DAY.1).8):TM.A(I| 00000C40: 2C 42 59 54 45 29 00 64 14 4A 15 42 49 54 B2 44 |,BYTE).d.J.BIT.D| 00000C50: 41 59 AB 42 59 54 45 AC 38 AB 31 3A 54 45 B2 32 |AY.BYTE.8.1:TE.2| 00000C60: AE 42 49 54 00 7D 14 54 15 4B B2 28 54 4D AF 54 |.BIT.}.T.K.(TM.T| 00000C70: 45 29 AD 54 45 3A 53 55 B2 53 55 AA 4B 00 BE 14 |E).TE:SU.SU.K...| 00000C80: 5E 15 99 22 13 11 11 11 11 11 11 11 11 22 50 24 |^.."........."P$| 00000C90: 28 4B 29 44 41 24 28 4A 29 22 20 20 20 20 20 20 |(K)DA$(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 20 20 20 20 20 22 00 D2 | "..| 00000CC0: 14 68 15 8D 39 30 30 30 3A 8B 56 B2 32 A7 35 35 |.h..9000:.V.2.55| 00000CD0: 32 30 00 E4 14 72 15 8B 4B B2 30 A7 54 4D B2 54 |20...r..K.0.TM.T| 00000CE0: 4D AA 54 45 00 F6 14 7C 15 8B 4B B2 31 A7 54 4D |M.TE...|..K.1.TM| 00000CF0: B2 54 4D AB 54 45 00 0C 15 86 15 41 28 49 2C 42 |.TM.TE.....A(I,B| 00000D00: 59 54 45 29 B2 54 4D 3A 53 46 B2 31 00 12 15 90 |YTE).TM:SF.1....| 00000D10: 15 82 00 44 15 9A 15 99 22 11 22 53 55 22 54 49 |...D...."."SU"TI| 00000D20: 4D 45 53 20 50 52 45 53 45 4E 54 20 4F 55 54 20 |MES PRESENT OUT | 00000D30: 4F 46 22 44 22 53 45 53 53 49 4F 4E 53 22 3A 8D |OF"D"SESSIONS":.| 00000D40: 38 39 39 30 00 4E 15 A4 15 89 35 30 30 30 00 70 |8990.N....5000.p| 00000D50: 15 44 16 85 22 11 11 44 45 53 49 52 45 44 20 44 |.D.."..DESIRED D| 00000D60: 41 54 45 20 20 9D 20 2A 9D 9D 9D 22 3B 53 53 24 |ATE . *...";SS$| 00000D70: 00 82 15 58 16 8B 53 53 24 B2 22 2A 22 A7 31 31 |...X..SS$."*".11| 00000D80: 30 30 00 8C 15 62 16 8D 32 31 30 30 00 AC 15 6C |00...b..2100...l| 00000D90: 16 8B 49 B2 30 A7 99 22 11 4E 4F 20 53 55 43 48 |..I.0..".NO SUCH| 00000DA0: 20 44 41 54 45 22 3A 89 35 37 30 30 00 BB 15 A8 | DATE":.5700....| 00000DB0: 16 44 41 59 B2 49 3A 53 55 B2 30 00 D1 15 B2 16 |.DAY.I:SU.0.....| 00000DC0: 42 59 54 45 B2 B5 28 28 44 41 59 AB 31 29 AD 38 |BYTE..((DAY.1).8| 00000DD0: 29 00 EF 15 BC 16 42 49 54 B2 44 41 59 AB 42 59 |).....BIT.DAY.BY| 00000DE0: 54 45 AC 38 AB 31 3A 54 45 B2 32 AE 42 49 54 00 |TE.8.1:TE.2.BIT.| 00000DF0: 2E 16 C6 16 99 22 93 11 11 52 45 43 4F 52 44 20 |....."...RECORD | 00000E00: 4F 46 20 22 44 41 24 28 49 29 22 2E 20 20 D0 52 |OF "DA$(I)". .R| 00000E10: 45 53 53 20 12 58 92 20 49 46 20 42 41 44 2C 22 |ESS .X. IF BAD,"| 00000E20: 3A 47 53 24 B2 22 58 22 AA C7 28 31 33 29 00 4D |:GS$."X"..(13).M| 00000E30: 16 D0 16 99 22 20 20 20 50 52 45 53 53 20 12 52 |...." PRESS .R| 00000E40: 45 54 55 52 4E 92 20 49 46 20 4F 4B 22 00 5A 16 |ETURN. IF OK".Z.| 00000E50: DA 16 81 4B 4B B2 31 A4 4E 53 00 78 16 DF 16 8B |...KK.1.NS.x....| 00000E60: C8 28 53 4E 24 28 4B 4B 29 2C 34 29 B2 22 44 52 |.(SN$(KK),4)."DR| 00000E70: 4F 50 22 A7 35 39 32 30 00 9F 16 E4 16 54 4D B2 |OP".5920.....TM.| 00000E80: 41 28 4B 4B 2C 42 59 54 45 29 3A 4B B2 28 54 4D |A(KK,BYTE):K.(TM| 00000E90: AF 54 45 29 AD 54 45 3A 53 55 B2 53 55 AA 4B 00 |.TE).TE:SU.SU.K.| 00000EA0: E0 16 EE 16 99 22 13 11 11 11 11 11 11 22 50 24 |....."......."P$| 00000EB0: 28 4B 29 53 4E 24 28 4B 4B 29 22 20 20 20 20 20 |(K)SN$(KK)" | 00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000ED0: 20 20 20 20 20 20 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 | ........."| 00000EE0: 00 F4 16 F8 16 8D 39 30 30 30 3A 8B 56 B2 32 A7 |......9000:.V.2.| 00000EF0: 35 39 32 30 00 06 17 02 17 8B 4B B2 30 A7 54 4D |5920......K.0.TM| 00000F00: B2 54 4D AA 54 45 00 18 17 0C 17 8B 4B B2 31 A7 |.TM.TE......K.1.| 00000F10: 54 4D B2 54 4D AB 54 45 00 2F 17 16 17 41 28 4B |TM.TM.TE./...A(K| 00000F20: 4B 2C 42 59 54 45 29 B2 54 4D 3A 53 46 B2 31 00 |K,BYTE).TM:SF.1.| 00000F30: 35 17 20 17 82 00 60 17 2A 17 99 22 11 22 53 55 |5. ...`.*.."."SU| 00000F40: 22 50 52 45 53 45 4E 54 20 46 4F 52 20 54 48 49 |"PRESENT FOR THI| 00000F50: 53 20 53 45 53 53 49 4F 4E 22 3A 8D 38 39 39 30 |S SESSION":.8990| 00000F60: 00 6A 17 34 17 89 35 30 30 30 00 85 17 58 1B 8F |.j.4..5000...X..| 00000F70: 20 20 4E 45 57 20 46 49 4C 45 2C 20 54 45 52 4D | NEW FILE, TERM| 00000F80: 49 4E 41 54 45 00 96 17 62 1B 8B 53 46 B3 B1 30 |INATE...b..SF..0| 00000F90: A7 8D 31 32 30 30 00 A3 17 6C 1B 8B 56 B2 33 A7 |..1200...l..V.3.| 00000FA0: 31 30 30 00 A9 17 76 1B 80 00 D6 17 1E 23 99 22 |100...v......#."| 00000FB0: 11 50 52 45 53 53 20 12 52 45 54 55 52 4E 92 20 |.PRESS .RETURN. | 00000FC0: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 47 53 24 |TO CONTINUE":GS$| 00000FD0: B2 C7 28 31 33 29 00 FB 17 28 23 A1 47 24 3A 81 |..(13)...(#.G$:.| 00000FE0: 56 B2 31 A4 C3 28 47 53 24 29 3A 8B 47 24 B2 CA |V.1..(GS$):.G$..| 00000FF0: 28 47 53 24 2C 56 2C 31 29 A7 8E 00 08 18 32 23 |(GS$,V,1).....2#| 00001000: 82 56 3A 89 39 30 30 30 00 1D 18 10 27 84 31 35 |.V:.9000....'.15| 00001010: 2C 41 2C 41 24 3A 8B 41 B3 B2 31 A7 8E 00 32 18 |,A,A$:.A..1...2.| 00001020: 1A 27 99 41 24 3A 8B 41 B2 36 32 B0 41 B2 36 33 |.'.A$:.A.62.A.63| 00001030: A7 8E 00 38 18 24 27 90 00 00 00 |...8.$'.... |
..9....53281,12:.53280,12:.G(8)G(5)G(14)
:Z$.G(0):.15,8,15.C....".... .A
TTENDANCE. .RECORDS......"...
TOM RICHARDSON...(..".. DAN
A COLLEGE.K.2..".. OCTOBER 1
983...F.BYTE.0:BIT.0:TE.0:SF.0:K.0:TM.0:
KK.0 :A.0:SU.0:V.0:VV.0:NS.0:I.0:J.0:D
.0.Q.P.P$(0).".ABSENT. :":P$(1)."PRESEN
T :" :SS.0:DAY.0.P.Z.. DA$(64),A(50,64)
,SN$(50)...D.."...ATTENDANCE 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.K.... ATTENDANCE.....
."... ATTENDANCE RECORDS FOR "F$......"
... LOADING DATA--PLEASE STAND BY..
....8,8,8,"0:A".F$.",S,R":.10000:.A.62.
8:.1700......I.1.NS:.J.0.7:.#8,A$:A(I,J)
.F(A$.Z$):.J:.I.5....#8,D$:D.F(D$.Z$).S.
$..I.1.D:.8,DA$(I):.I:D.D.1.Z... 8...L..
"... ATTENDANCE RECORDS FOR";F$...V..".
PRESS A LETTER...J..". A. UPDATE (EX
TEND) DATA"...T..". B. INSPECT/CORREC
T AN ENTRY"...~..". C. A DIFFERENT FI
LE......". D. TERMINATE".0...GS$."ABC
D":.9000.K....V.3000,5000,7000,7000.O...
."...ATTENDANCE RECORDS FOR "F$......"..
. SAVING DATA--PLEASE STAND BY...D..1
5,"S0:ATT.BACKUP".N.N..15,"R0:ATT.BACKUP
=A".F$...X..15,"S0:A".F$......8,8,8,"0:A
".F$.",S,W"."....I.1.NS:.J.0.7:.8,G(A(I,
J));:.J:.I.1....8,G(D.1);.I....I.1.D:.8,
DA$(I):.I.Y....8,"MARKER".H... 8:.SF.0..
......".. BACKUP COPY? .Y./.N...(.GS$
."YN":.9000:SF.0 :.V.2.13
00...2.."...INSERT SECOND DISK AND PRESS
.RETURN"...<.GS$.G(13):.9000:.1220.....
. SETUP ATTENDANCE.K....8,8,8,"0:A".F$."
,S,W":.10000:.A.63. 8:.1000.M....I.1.NS:
.J.0.7:.8,G(0);:.J:.I.Z.B..8,G(1);...L..
8,"MARKER"...V. 8:.1000...P.. STRING SEA
RCH--NAMES.H.Z.SS.C(SS$):.I.1.NS......J.
1.(C(SN$(I)).SS.1)...... SS$.J(SN$(I),J,
SS)........J:.I:I.0:..(.4.. STRING SEARC
H--DATES.=.>.SS.C(SS$):.I.1.D.W.H..J.1.(
C(DA$(I)).SS.1).R.R.. SS$.J(DA$(I),J,SS)
.....\..J:.I:I.0:....... UPDATE RECORDS
...B.."... ATTENDANCE RECORDS FOR ";F$.
..L.."..LAST RECORD WAS #"D"., "DA$(D):D
.D.1.$.V.."..ENTER DATE OF NEW RECORD #"
D;:." . *...";DA$(D).....DAY.D.D.&.BYTE.
.((DAY.1).8).B.0.BIT.DAY.BYTE.8.1:TE.2.B
IT...:.."...RECORD PRESENCE ON "DA$(D)..
.D.GS$."AP":."..PRESS .A. IF THE STUDENT
WAS ABSENT,...N.." PRESS .P. IF HE
WAS PRESENT...X..I.1.NS...B.:.H(SN$(I),4
)."DROP".3210.@.L.:."......... "SN$
(I)" ".U.V.:.9000:.V.1
.3210.S...:A(I,BYTE).(A(I,BYTE).TE).Z...
:......SF.1:.1100...... CORRECT AN ENTR
Y......"...ATTENDANCE INSPECTION/CORRECT
ION FOR ":.". "F$......".. DO IT BY .
S.TUDENT......". OR BY .D.ATE?.3...
GS$."SD":.9000:.V.5100,5700.X...."..NAME
OF STUDENT . *...";SS$.J....SS$."*".11
00.T....2000......I.0..".NO SUCH STUDENT
":.5100......"...RECORD OF ."SN$(I)"....
.."..PRESS .X. IF BAD," :GS$
."X".G(13):SU.0...".." PRESS .RETURN.
IF OK"...,..J.1.D.#.6.DAY.J.F.@.BYTE..((
DAY.1).8):TM.A(I,BYTE).D.J.BIT.DAY.BYTE.
8.1:TE.2.BIT.}.T.K.(TM.TE).TE:SU.SU.K...
^.."........."P$(K)DA$(J)"
".R.H..9000:.V.2.55
20...R..K.0.TM.TM.TE...|..K.1.TM.TM.TE..
...A(I,BYTE).TM:SF.1.......D...."."SU"TI
MES PRESENT OUT OF"D"SESSIONS":.8990.N..
..5000.P.D.."..DESIRED DATE . *...";SS$
...X..SS$."*".1100...B..2100...L..I.0.."
.NO SUCH DATE":.5700.....DAY.I:SU.0.Q...
BYTE..((DAY.1).8).....BIT.DAY.BYTE.8.1:T
E.2.BIT...F.."...RECORD OF "DA$(I)". PR
ESS .X. IF BAD,":GS$."X".G(13).M.P.."
PRESS .RETURN. IF OK".Z.Z..KK.1.NS.X....
H(SN$(KK),4)."DROP".5920.....TM.A(KK,BYT
E):K.(TM.TE).TE:SU.SU.K......"......."P$
(K)SN$(KK)"
"......9000:.V.2.5920......K.0.TM
.TM.TE......K.1.TM.TM.TE./...A(KK,BYTE).
TM:SF.1.5. ...`.*.."."SU"PRESENT FOR THI
S SESSION":.8990.J.4..5000...X.. NEW FI
LE, TERMINATE...B..SF..0..1200...L..V.3.
100...V...V..#.".PRESS .RETURN. TO CONTI
NUE":GS$.G(13)...(#.G$:.V.1.C(GS$):.G$.J
(GS$,V,1).....2#.V:.9000....'.15,A,A$:.A
..1...2..'.A$:.A.62.A.63...8.$'....
> CLICK IMAGE PREVIEW FOR FULL MODAL