REPORTER.C
FILE INFORMATION
FILENAME(S): REPORTER.C
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 2 disk(s)
FILE HASH
62e1e97d56e4e5656a2aa663c743cf7d4f3b274366e423feb62230ace6d4ace9
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | REPORTER.C | PRG | Treasure Chest - Plattfuss | 27 | 7 | DOWNLOAD FILE |
| TPUG APRIL 84 C | REPORTER.C | PRG | Sailor, Ganheden | 27 | 7 | 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 68 08 14 00 99 22 |:.15,8,15.h...."|
00000040: 93 11 11 20 20 20 20 20 20 12 C1 D4 D4 C5 CE C4 |... .......|
00000050: C1 CE C3 C5 2F C8 CF CD C5 D7 CF D2 CB 92 20 12 |..../......... .|
00000060: D2 C5 D0 CF D2 D4 C5 D2 00 8C 08 1E 00 99 22 11 |..............".|
00000070: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 D4 4F |.. .O|
00000080: 4D 20 D2 49 43 48 41 52 44 53 4F 4E 00 AE 08 28 |M .ICHARDSON...(|
00000090: 00 99 22 11 11 20 20 20 20 20 20 20 20 20 20 20 |..".. |
000000A0: 20 20 C4 41 4E 41 20 C3 4F 4C 4C 45 47 45 00 D1 | .ANA .OLLEGE..|
000000B0: 08 32 00 99 22 11 11 20 20 20 20 20 20 20 20 20 |.2..".. |
000000C0: 20 20 20 20 CE 4F 56 45 4D 42 45 52 20 31 39 38 | .OVEMBER 198|
000000D0: 33 00 E1 08 3C 00 81 49 B2 31 A4 31 30 30 30 3A |3...<..I.1.1000:|
000000E0: 82 00 30 09 46 00 42 59 54 45 B2 30 3A 42 49 54 |..0.F.BYTE.0:BIT|
000000F0: B2 30 3A 54 45 B2 30 3A 53 46 B2 30 3A 4B B2 30 |.0:TE.0:SF.0:K.0|
00000100: 3A 54 4D B2 30 3A 4B 4B B2 30 20 20 20 3A 41 B2 |:TM.0:KK.0 :A.|
00000110: 30 3A 53 55 B2 30 3A 56 B2 30 3A 56 56 B2 30 3A |0:SU.0:V.0:VV.0:|
00000120: 4E 53 B2 30 3A 49 B2 30 3A 4A B2 30 3A 44 B2 30 |NS.0:I.0:J.0:D.0|
00000130: 00 4A 09 50 00 53 53 B2 30 3A 44 41 59 B2 30 3A |.J.P.SS.0:DAY.0:|
00000140: 50 24 28 31 29 B2 22 4F 4B 22 00 69 09 5A 00 86 |P$(1)."OK".i.Z..|
00000150: 20 44 41 24 28 36 34 29 2C 41 28 35 30 2C 36 34 | DA$(64),A(50,64|
00000160: 29 2C 53 4E 24 28 35 30 29 00 88 09 64 00 99 22 |),SN$(50)...d.."|
00000170: 93 11 11 20 20 20 20 20 20 D2 C5 C3 CF D2 C4 20 |... ...... |
00000180: D2 C5 D0 CF D2 D4 C5 D2 00 AA 09 6E 00 99 22 11 |...........n..".|
00000190: 11 11 20 20 20 20 50 52 45 53 53 20 41 20 4C 45 |.. PRESS A LE|
000001A0: 54 54 45 52 20 2E 20 2E 20 2E 00 C9 09 78 00 99 |TTER . . ....x..|
000001B0: 22 11 20 20 20 20 20 20 41 2E 20 20 48 4F 4D 45 |". A. HOME|
000001C0: 57 4F 52 4B 20 46 49 4C 45 00 EA 09 82 00 99 22 |WORK FILE......"|
000001D0: 11 20 20 20 20 20 20 42 2E 20 20 41 54 54 45 4E |. B. ATTEN|
000001E0: 44 41 4E 43 45 20 46 49 4C 45 00 09 0A 87 00 99 |DANCE FILE......|
000001F0: 22 11 20 20 20 20 20 20 43 2E 20 20 54 45 52 4D |". C. TERM|
00000200: 49 4E 41 54 45 20 52 55 4E 00 24 0A 8C 00 47 53 |INATE RUN.$...GS|
00000210: 24 B2 22 41 42 43 22 3A 8D 39 30 30 30 3A 8B 56 |$."ABC":.9000:.V|
00000220: B2 33 A7 80 00 45 0A 91 00 99 22 11 20 20 20 20 |.3...E....". |
00000230: 20 20 43 48 4F 49 43 45 20 57 41 53 20 22 47 24 | CHOICE WAS "G$|
00000240: 3A 56 56 B2 56 00 63 0A 96 00 99 22 11 11 11 45 |:VV.V.c...."...E|
00000250: 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 46 49 4C |NTER NAME OF FIL|
00000260: 45 22 3B 00 80 0A A0 00 85 22 1D 1D 2A 9D 9D 9D |E";......"..*...|
00000270: 22 3B 46 24 3A 8B 46 24 B2 22 2A 22 A7 31 30 30 |";F$:.F$."*".100|
00000280: 00 90 0A AA 00 46 24 B2 C8 28 46 24 2C 31 35 29 |.....F$..(F$,15)|
00000290: 00 B4 0A B4 00 99 22 11 56 45 52 49 46 59 20 4E |......".VERIFY N|
000002A0: 41 4D 45 3A 20 12 22 46 24 22 92 3A 20 12 59 92 |AME: ."F$".: .Y.|
000002B0: 2F 12 4E 22 00 D0 0A BE 00 47 53 24 B2 22 59 4E |/.N".....GS$."YN|
000002C0: 22 3A 8D 39 30 30 30 3A 8B 56 B2 32 A7 31 35 30 |":.9000:.V.2.150|
000002D0: 00 EB 0A C8 00 9F 37 2C 38 2C 37 2C 22 30 3A 4E |......7,8,7,"0:N|
000002E0: 22 AA 46 24 AA 22 2C 53 2C 52 22 00 04 0B DC 00 |".F$.",S,R".....|
000002F0: 8D 31 30 30 30 30 3A 8B 41 B2 36 32 A7 A0 37 3A |.10000:.A.62..7:|
00000300: 89 31 35 30 00 1D 0B E6 00 A1 23 37 2C 4E 53 24 |.150......#7,NS$|
00000310: 3A 4E 53 B2 C6 28 4E 53 24 AA 5A 24 29 00 3B 0B |:NS..(NS$.Z$).;.|
00000320: F0 00 8B 4E 53 B2 30 A7 A0 37 3A 99 22 42 41 44 |...NS.0..7:."BAD|
00000330: 20 46 49 4C 45 22 3A 89 31 35 30 00 54 0B FA 00 | FILE":.150.T...|
00000340: 81 49 B2 31 A4 4E 53 3A 84 37 2C 53 4E 24 28 49 |.I.1.NS:.7,SN$(I|
00000350: 29 3A 82 49 00 5B 0B 04 01 A0 37 00 A4 0B 0E 01 |):.I.[....7.....|
00000360: 8B 56 56 B2 31 A7 47 24 B2 22 30 3A 48 22 AA 46 |.VV.1.G$."0:H".F|
00000370: 24 AA 22 2C 53 2C 52 22 20 20 20 20 20 20 20 20 |$.",S,R" |
00000380: 20 20 20 3A 54 24 B2 22 48 4F 4D 45 57 4F 52 4B | :T$."HOMEWORK|
00000390: 22 3A 50 24 28 30 29 B2 22 12 4E 4F 20 50 41 50 |":P$(0).".NO PAP|
000003A0: 45 52 92 22 00 ED 0B 18 01 8B 56 56 B2 32 A7 47 |ER."......VV.2.G|
000003B0: 24 B2 22 30 3A 41 22 AA 46 24 AA 22 2C 53 2C 52 |$."0:A".F$.",S,R|
000003C0: 22 20 20 20 20 20 20 20 20 20 20 20 3A 54 24 B2 |" :T$.|
000003D0: 22 41 54 54 45 4E 44 41 4E 43 45 22 3A 50 24 28 |"ATTENDANCE":P$(|
000003E0: 30 29 B2 22 12 41 42 53 45 4E 54 92 22 00 0B 0C |0).".ABSENT."...|
000003F0: 2C 01 99 22 93 11 11 22 54 24 22 20 52 45 43 4F |,.."..."T$" RECO|
00000400: 52 44 53 20 46 4F 52 20 22 46 24 00 38 0C 36 01 |RDS FOR "F$.8.6.|
00000410: 99 22 11 11 11 20 20 20 20 20 20 4C 4F 41 44 49 |."... LOADI|
00000420: 4E 47 20 44 41 54 41 2D 2D 50 4C 45 41 53 45 20 |NG DATA--PLEASE |
00000430: 53 54 41 4E 44 20 42 59 00 6C 0C 40 01 9F 38 2C |STAND BY.l.@..8,|
00000440: 38 2C 38 2C 47 24 3A 8D 31 30 30 30 30 20 20 20 |8,8,G$:.10000 |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8B 41 | :.A|
00000460: B2 36 32 A7 A0 38 3A 8D 38 39 39 30 00 9C 0C 4A |.62..8:.8990...J|
00000470: 01 81 49 B2 31 A4 4E 53 3A 81 4A B2 30 A4 37 3A |..I.1.NS:.J.0.7:|
00000480: A1 23 38 2C 41 24 3A 41 28 49 2C 4A 29 B2 C6 28 |.#8,A$:A(I,J)..(|
00000490: 41 24 AA 5A 24 29 3A 82 4A 3A 82 49 00 B2 0C 54 |A$.Z$):.J:.I...T|
000004A0: 01 A1 23 38 2C 44 24 3A 44 B2 C6 28 44 24 AA 5A |..#8,D$:D..(D$.Z|
000004B0: 24 29 00 D0 0C 5E 01 81 49 B2 31 A4 44 3A 84 38 |$)...^..I.1.D:.8|
000004C0: 2C 44 41 24 28 49 29 3A 82 49 3A 44 B2 44 AB 31 |,DA$(I):.I:D.D.1|
000004D0: 00 D7 0C 68 01 A0 38 00 F5 0C 90 01 99 22 93 11 |...h..8......"..|
000004E0: 11 22 54 24 22 20 52 45 43 4F 52 44 53 20 46 4F |."T$" RECORDS FO|
000004F0: 52 20 22 46 24 00 11 0D 9A 01 99 22 11 11 20 44 |R "F$......".. D|
00000500: 4F 20 49 54 20 42 59 20 12 53 92 54 55 44 45 4E |O IT BY .S.TUDEN|
00000510: 54 00 2F 0D A4 01 99 22 11 20 20 20 20 4F 52 20 |T./....". OR |
00000520: 42 59 20 12 44 92 41 54 45 2F 45 4E 54 52 59 00 |BY .D.ATE/ENTRY.|
00000530: 4F 0D A9 01 99 22 11 20 20 20 4F 52 20 47 45 54 |O....". OR GET|
00000540: 20 12 41 92 4E 4F 54 48 45 52 20 46 49 4C 45 00 | .A.NOTHER FILE.|
00000550: 87 0D AE 01 47 53 24 B2 22 53 44 41 22 3A 8D 39 |....GS$."SDA":.9|
00000560: 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 |000 |
00000570: 20 20 20 20 20 20 20 3A 91 56 89 35 30 30 2C 31 | :.V.500,1|
00000580: 30 30 30 2C 31 30 30 00 A3 0D F4 01 99 22 93 22 |000,100......"."|
00000590: 54 24 22 20 52 45 43 4F 52 44 53 20 46 4F 52 20 |T$" RECORDS FOR |
000005A0: 22 46 24 00 C7 0D F9 01 85 22 11 4E 41 4D 45 20 |"F$......".NAME |
000005B0: 4F 46 20 53 54 55 44 45 4E 54 20 20 9D 20 2A 9D |OF STUDENT . *.|
000005C0: 9D 9D 22 3B 53 53 24 00 D8 0D FE 01 8B 53 53 24 |..";SS$......SS$|
000005D0: B2 22 2A 22 A7 34 30 30 00 E2 0D 08 02 8D 32 30 |."*".400......20|
000005E0: 30 30 00 EF 0D 12 02 8B 49 B2 30 A7 35 30 30 00 |00......I.0.500.|
000005F0: F8 0D 1C 02 8D 37 30 30 00 11 0E 26 02 50 53 B2 |.....700...&.PS.|
00000600: 30 3A 53 55 B2 30 3A 4E B2 30 3A 81 4A B2 31 A4 |0:SU.0:N.0:.J.1.|
00000610: 44 00 1B 0E 30 02 44 41 59 B2 4A 00 3E 0E 3A 02 |D...0.DAY.J.>.:.|
00000620: 42 59 54 45 B2 B5 28 28 44 41 59 AB 31 29 AD 38 |BYTE..((DAY.1).8|
00000630: 29 3A 54 4D B2 41 28 49 2C 42 59 54 45 29 00 5C |):TM.A(I,BYTE).\|
00000640: 0E 44 02 42 49 54 B2 44 41 59 AB 42 59 54 45 AC |.D.BIT.DAY.BYTE.|
00000650: 38 AB 31 3A 54 45 B2 32 AE 42 49 54 00 75 0E 4E |8.1:TE.2.BIT.u.N|
00000660: 02 4B B2 28 54 4D AF 54 45 29 AD 54 45 3A 53 55 |.K.(TM.TE).TE:SU|
00000670: B2 53 55 AA 4B 00 A7 0E 58 02 99 44 41 24 28 4A |.SU.K...X..DA$(J|
00000680: 29 22 20 20 22 50 24 28 4B 29 A3 32 30 29 3B 3A |)" "P$(K).20);:|
00000690: 50 53 B2 50 53 AA 31 20 20 20 3A 8B 50 53 B2 32 |PS.PS.1 :.PS.2|
000006A0: A7 50 53 B2 30 3A 99 00 DA 0E 62 02 4E B2 4E AA |.PS.0:....b.N.N.|
000006B0: 31 3A 8B 4E B2 33 30 A7 4E B2 30 20 20 20 20 20 |1:.N.30.N.0 |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
000006D0: 8D 38 39 39 30 3A 8D 37 30 30 00 E0 0E 67 02 82 |.8990:.700...g..|
000006E0: 00 13 0F 6C 02 99 22 11 22 53 55 22 4F 55 54 20 |...l.."."SU"OUT |
000006F0: 4F 46 22 44 20 20 20 20 20 20 20 20 20 20 20 20 |OF"D |
00000700: 20 20 20 20 20 20 20 20 3A 8D 38 39 39 30 3A 89 | :.8990:.|
00000710: 35 30 30 00 34 0F BC 02 99 22 93 22 54 24 22 20 |500.4...."."T$" |
00000720: 52 45 43 4F 52 44 20 4F 46 20 12 22 53 4E 24 28 |RECORD OF ."SN$(|
00000730: 49 29 22 11 00 3A 0F C6 02 8E 00 58 0F E8 03 99 |I)"..:.....X....|
00000740: 22 93 11 11 22 54 24 22 20 52 45 43 4F 52 44 53 |"..."T$" RECORDS|
00000750: 20 46 4F 52 20 22 46 24 00 7B 0F ED 03 85 22 11 | FOR "F$.{....".|
00000760: 11 44 45 53 49 52 45 44 20 45 4E 54 52 59 20 20 |.DESIRED ENTRY |
00000770: 9D 20 2A 9D 9D 9D 22 3B 53 53 24 00 8C 0F F2 03 |. *...";SS$.....|
00000780: 8B 53 53 24 B2 22 2A 22 A7 34 30 30 00 96 0F FC |.SS$."*".400....|
00000790: 03 8D 32 31 30 30 00 A4 0F 06 04 8B 49 B2 30 A7 |..2100......I.0.|
000007A0: 31 30 30 30 00 B3 0F 10 04 44 41 59 B2 49 3A 53 |1000.....DAY.I:S|
000007B0: 55 B2 30 00 C9 0F 1A 04 42 59 54 45 B2 B5 28 28 |U.0.....BYTE..((|
000007C0: 44 41 59 AB 31 29 AD 38 29 00 E7 0F 24 04 42 49 |DAY.1).8)...$.BI|
000007D0: 54 B2 44 41 59 AB 42 59 54 45 AC 38 AB 31 3A 54 |T.DAY.BYTE.8.1:T|
000007E0: 45 B2 32 AE 42 49 54 00 F1 0F 29 04 8D 31 32 30 |E.2.BIT...)..120|
000007F0: 30 00 07 10 2E 04 4E B2 30 3A 53 55 B2 30 3A 81 |0.....N.0:SU.0:.|
00000800: 4B 4B B2 31 A4 4E 53 00 25 10 38 04 8B C8 28 53 |KK.1.NS.%.8...(S|
00000810: 4E 24 28 4B 4B 29 2C 34 29 B2 22 44 52 4F 50 22 |N$(KK),4)."DROP"|
00000820: A7 31 31 31 30 00 4C 10 42 04 54 4D B2 41 28 4B |.1110.L.B.TM.A(K|
00000830: 4B 2C 42 59 54 45 29 3A 4B B2 28 54 4D AF 54 45 |K,BYTE):K.(TM.TE|
00000840: 29 AD 54 45 3A 53 55 B2 53 55 AA 4B 00 62 10 4C |).TE:SU.SU.K.b.L|
00000850: 04 99 53 4E 24 28 4B 4B 29 A3 32 35 29 50 24 28 |..SN$(KK).25)P$(|
00000860: 4B 29 00 96 10 51 04 4E B2 4E AA 31 3A 8B 4E B2 |K)...Q.N.N.1:.N.|
00000870: 31 35 A7 4E B2 30 20 20 20 20 20 20 20 20 20 20 |15.N.0 |
00000880: 20 20 20 20 20 20 20 20 20 20 3A 8D 38 39 39 30 | :.8990|
00000890: 3A 8D 31 32 30 30 00 9C 10 56 04 82 00 B1 10 60 |:.1200...V.....`|
000008A0: 04 99 22 11 22 53 55 22 4F 4B 22 3A 8D 38 39 39 |.."."SU"OK":.899|
000008B0: 30 00 BA 10 6A 04 89 34 30 30 00 DE 10 B0 04 99 |0...j..400......|
000008C0: 22 93 22 54 24 22 20 52 45 43 4F 52 44 20 46 4F |"."T$" RECORD FO|
000008D0: 52 20 12 22 44 41 24 28 44 41 59 29 22 11 00 E4 |R ."DA$(DAY)"...|
000008E0: 10 BA 04 8E 00 FF 10 D0 07 8F 20 53 54 52 49 4E |.......... STRIN|
000008F0: 47 20 53 45 41 52 43 48 2D 2D 4E 41 4D 45 53 00 |G SEARCH--NAMES.|
00000900: 15 11 DA 07 53 53 B2 C3 28 53 53 24 29 3A 81 49 |....SS..(SS$):.I|
00000910: B2 31 A4 4E 53 00 2F 11 E4 07 81 4A B2 31 A4 28 |.1.NS./....J.1.(|
00000920: C3 28 53 4E 24 28 49 29 29 AB 53 53 AA 31 29 00 |.(SN$(I)).SS.1).|
00000930: 4A 11 EE 07 8B 20 53 53 24 B2 CA 28 53 4E 24 28 |J.... SS$..(SN$(|
00000940: 49 29 2C 4A 2C 53 53 29 A7 8E 00 5A 11 F8 07 82 |I),J,SS)...Z....|
00000950: 4A 3A 82 49 3A 49 B2 30 3A 8E 00 75 11 34 08 8F |J:.I:I.0:..u.4..|
00000960: 20 53 54 52 49 4E 47 20 53 45 41 52 43 48 2D 2D | STRING SEARCH--|
00000970: 44 41 54 45 53 00 8A 11 3E 08 53 53 B2 C3 28 53 |DATES...>.SS..(S|
00000980: 53 24 29 3A 81 49 B2 31 A4 44 00 A4 11 48 08 81 |S$):.I.1.D...H..|
00000990: 4A B2 31 A4 28 C3 28 44 41 24 28 49 29 29 AB 53 |J.1.(.(DA$(I)).S|
000009A0: 53 AA 31 29 00 BF 11 52 08 8B 20 53 53 24 B2 CA |S.1)...R.. SS$..|
000009B0: 28 44 41 24 28 49 29 2C 4A 2C 53 53 29 A7 8E 00 |(DA$(I),J,SS)...|
000009C0: CF 11 5C 08 82 4A 3A 82 49 3A 49 B2 30 3A 8E 00 |..\..J:.I:I.0:..|
000009D0: FC 11 1E 23 99 22 11 50 52 45 53 53 20 12 52 45 |...#.".PRESS .RE|
000009E0: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
000009F0: 45 22 3A 47 53 24 B2 C7 28 31 33 29 00 21 12 28 |E":GS$..(13).!.(|
00000A00: 23 A1 47 24 3A 81 56 B2 31 A4 C3 28 47 53 24 29 |#.G$:.V.1..(GS$)|
00000A10: 3A 8B 47 24 B2 CA 28 47 53 24 2C 56 2C 31 29 A7 |:.G$..(GS$,V,1).|
00000A20: 8E 00 2E 12 32 23 82 56 3A 89 39 30 30 30 00 43 |....2#.V:.9000.C|
00000A30: 12 10 27 84 31 35 2C 41 2C 41 24 3A 8B 41 B3 B2 |..'.15,A,A$:.A..|
00000A40: 31 A7 8E 00 58 12 1A 27 99 41 24 3A 8B 41 B2 36 |1...X..'.A$:.A.6|
00000A50: 32 B0 41 B2 36 33 A7 8E 00 5E 12 24 27 90 00 00 |2.A.63...^.$'...|
00000A60: 00 |. |
..9....53281,12:.53280,12:.G(8)G(5)G(14)
:Z$.G(0):.15,8,15.H...."... .ATTEND
ANCE/HOMEWORK. .REPORTER......"...
TOM RICHARDSON...(.."..
DANA COLLEGE.Q.2..".. NOVE
MBER 1983...<..I.1.1000:..0.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.J.P.SS.0:DAY.0:
P$(1)."OK".I.Z.. DA$(64),A(50,64),SN$(50
)...D.."... RECORD REPORTER...N..".
.. PRESS A LETTER . . ..I.X..".
A. HOMEWORK FILE......". B. ATTEN
DANCE FILE......". C. TERMINATE RU
N.$...GS$."ABC":.9000:.V.3...E....".
CHOICE WAS "G$:VV.V.C...."...ENTER NAM
E OF FILE";... .."..*...";F$:.F$."*".100
.....F$.H(F$,15)......".VERIFY NAME: ."F
$".: .Y./.N".P...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.T....I.1.NS:
.7,SN$(I):.I.[... 7......VV.1.G$."0:H".F
$.",S,R" :T$."HOMEWORK":P$(0).
".NO PAPER."......VV.2.G$."0:A".F$.",S,R
" :T$."ATTENDANCE":P$(0).".ABS
ENT."...,.."..."T$" RECORDS FOR "F$.8.6.
."... LOADING DATA--PLEASE STAND BY
.L.@..8,8,8,G$:.10000 :.A
.62. 8:.8990...J..I.1.NS:.J.0.7:.#8,A$:A
(I,J).F(A$.Z$):.J:.I...T..#8,D$:D.F(D$.Z
$).P.^..I.1.D:.8,DA$(I):.I:D.D.1.W.H. 8.
....."..."T$" RECORDS FOR "F$......".. D
O IT BY .S.TUDENT./....". OR BY .D.AT
E/ENTRY.O....". OR GET .A.NOTHER FILE.
....GS$."SDA":.9000 :
.V.500,1000,100......"."T$" RECORDS FOR
"F$.G....".NAME OF STUDENT . *...";SS$.
X....SS$."*".400......2000......I.0.500.
.....700...&.PS.0:SU.0:N.0:.J.1.D...0.DA
Y.J.>.:.BYTE..((DAY.1).8):TM.A(I,BYTE).\
.D.BIT.DAY.BYTE.8.1:TE.2.BIT.U.N.K.(TM.T
E).TE:SU.SU.K...X..DA$(J)" "P$(K).20);:
PS.PS.1 :.PS.2.PS.0:..Z.B.N.N.1:.N.30.
N.0 :.8990:.700...G..
...L.."."SU"OUT OF"D
:.8990:.500.4...."."T$" RECORD OF ."SN$(
I)"..:.F...X...."..."T$" RECORDS FOR "F$
.{...."..DESIRED ENTRY . *...";SS$.....
.SS$."*".400......2100......I.0.1000....
.DAY.I:SU.0.I...BYTE..((DAY.1).8)...$.BI
T.DAY.BYTE.8.1:TE.2.BIT...)..1200.....N.
0:SU.0:.KK.1.NS.%.8..H(SN$(KK),4)."DROP"
.1110.L.B.TM.A(KK,BYTE):K.(TM.TE).TE:SU.
SU.K.B.L..SN$(KK).25)P$(K)...Q.N.N.1:.N.
15.N.0 :.8990:.1200..
.V.....`.."."SU"OK":.8990...J..400......
"."T$" RECORD FOR ."DA$(DAY)"..........P
.. STRING SEARCH--NAMES...Z.SS.C(SS$):.I
.1.NS./....J.1.(C(SN$(I)).SS.1).J.... SS
$.J(SN$(I),J,SS)...Z....J:.I:I.0:..U.4..
STRING SEARCH--DATES...>.SS.C(SS$):.I.1
.D...H..J.1.(C(DA$(I)).SS.1)...R.. SS$.J
(DA$(I),J,SS)...O.\..J:.I:I.0:.....#.".P
RESS .RETURN. TO CONTINUE":GS$.G(13).!.(
#.G$:.V.1.C(GS$):.G$.J(GS$,V,1).....2#.V
:.9000.C..'.15,A,A$:.A..1...X..'.A$:.A.6
2.A.63...^.$'....
> CLICK IMAGE PREVIEW FOR FULL MODAL