REPORT GEN.C

FILE INFORMATION

FILENAME(S): REPORT GEN.C

FILE TYPE(S): PRG

FILE SIZE: 825b

FIRST SEEN: 2025-10-19 22:48:24

APPEARS ON: 2 disk(s)

FILE HASH

c9d85341904854523a3f5dfae5b721afd30d39c0cc4abe58b5038f66c917a8c0

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
TPUG JUNE 84 C	REPORT GEN.C	PRG	Radd Maxx	30	6	DOWNLOAD FILE
TPUG JUNE 84 C	REPORT GEN.C	PRG	DuncanTwain	30	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 2E 04 0A 00 99 20  22 11 0E D2 45 50 4F 52  |....... "...EPOR|
00000010: 54 20 C7 45 4E 45 52 41  54 4F 52 20 2D 20 D3 55  |T .ENERATOR - .U|
00000020: 4D 4D 41 52 59 20 CC 49  53 54 49 4E 47 22 00 34  |MMARY .ISTING".4|
00000030: 04 14 00 99 00 5C 04 1E  00 99 20 22 C2 45 46 4F  |.....\.... ".EFO|
00000040: 52 45 20 52 55 4E 4E 49  4E 47 20 54 48 49 53 20  |RE RUNNING THIS |
00000050: 50 52 4F 47 52 41 4D 2C  20 59 4F 55 00 87 04 28  |PROGRAM, YOU...(|
00000060: 00 99 20 22 53 48 4F 55  4C 44 20 48 41 56 45 20  |.. "SHOULD HAVE |
00000070: 53 4F 52 54 45 44 20 41  20 53 49 58 2D 46 49 45  |SORTED A SIX-FIE|
00000080: 4C 44 20 44 41 54 41 00  AD 04 32 00 99 20 22 46  |LD DATA...2.. "F|
00000090: 49 4C 45 20 49 4E 20 54  48 45 20 46 4F 4C 4C 4F  |ILE IN THE FOLLO|
000000A0: 57 49 4E 47 20 4F 52 44  45 52 20 4F 46 00 D7 04  |WING ORDER OF...|
000000B0: 3C 00 99 20 22 46 49 45  4C 44 53 3A 20 20 46 49  |<.. "FIELDS:  FI|
000000C0: 45 4C 44 20 34 20 28 50  52 4F 56 49 4E 43 45 2C  |ELD 4 (PROVINCE,|
000000D0: 20 53 54 41 54 45 29 00  F6 04 46 00 99 20 22 20  | STATE)...F.. " |
000000E0: 20 20 20 20 20 20 20 20  46 49 45 4C 44 20 33 20  |        FIELD 3 |
000000F0: 28 43 49 54 59 29 00 16  05 50 00 99 20 22 55 53  |(CITY)...P.. "US|
00000100: 49 4E 47 20 50 52 4F 47  52 41 4D 20 27 46 49 4C  |ING PROGRAM 'FIL|
00000110: 45 53 4F 52 54 27 00 1C  05 5A 00 99 00 31 05 64  |ESORT'...Z...1.d|
00000120: 00 85 20 22 46 49 4C 45  20 4E 41 4D 45 22 3B 46  |.. "FILE NAME";F|
00000130: 24 00 40 05 6E 00 9F 20  31 2C 38 2C 33 2C 46 24  |$.@.n.. 1,8,3,F$|
00000140: 00 5D 05 78 00 8F 3A 20  4E 41 4D 45 20 46 49 45  |.].x..: NAME FIE|
00000150: 4C 44 53 20 49 4E 20 53  4F 52 54 45 44 00 7B 05  |LDS IN SORTED.{.|
00000160: 82 00 8F 3A 20 20 20 41  4E 44 20 42 52 45 41 4B  |...:   AND BREAK|
00000170: 20 4F 52 44 45 52 20 48  45 52 45 00 A1 05 8C 00  | ORDER HERE.....|
00000180: 53 24 B2 22 20 20 20 20  20 20 20 20 20 20 20 20  |S$."            |
00000190: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001A0: 22 00 C0 05 C8 00 84 31  2C 41 34 24 2C 41 33 24  |"......1,A4$,A3$|
000001B0: 2C 41 32 24 2C 41 31 24  2C 41 35 24 2C 41 36 24  |,A2$,A1$,A5$,A6$|
000001C0: 00 D4 05 D2 00 42 30 B2  53 54 3A 42 31 B2 30 3A  |.....B0.ST:B1.0:|
000001D0: 42 32 B2 30 00 E4 05 DC  00 42 31 B2 41 31 24 B3  |B2.0.....B1.A1$.|
000001E0: B1 50 31 24 00 F4 05 E6  00 42 32 B2 41 32 24 B3  |.P1$.....B2.A2$.|
000001F0: B1 50 32 24 00 07 06 04  01 8B 20 50 31 24 B2 22  |.P2$...... P1$."|
00000200: 22 20 89 20 33 35 35 00  2C 06 2C 01 4C 24 B2 C8  |" . 355.,.,.L$..|
00000210: 28 50 31 24 AA 53 24 2C  31 30 29 AA 22 20 22 AA  |(P1$.S$,10)." ".|
00000220: C8 28 50 32 24 AA 53 24  2C 31 32 29 00 5A 06 36  |.(P2$.S$,12).Z.6|
00000230: 01 8B 20 42 30 20 B0 20  42 31 20 B0 20 42 32 20  |.. B0 . B1 . B2 |
00000240: A7 20 58 B2 4E 32 3A 8D  20 35 30 30 3A 4E 31 B2  |. X.N2:. 500:N1.|
00000250: 4E 31 AA 4E 32 3A 4E 32  B2 30 00 7F 06 40 01 4C  |N1.N2:N2.0...@.L|
00000260: 24 B2 C8 28 4C 24 2C 31  30 29 AA 22 2A 20 D4 4F  |$..(L$,10)."* .O|
00000270: 54 41 4C 20 2A 22 AA C8  28 53 24 2C 31 30 29 00  |TAL *"..(S$,10).|
00000280: A8 06 4A 01 8B 20 42 30  20 B0 20 42 31 20 A7 20  |..J.. B0 . B1 . |
00000290: 58 B2 4E 31 3A 8D 20 35  30 30 3A 4E 30 B2 4E 30  |X.N1:. 500:N0.N0|
000002A0: AA 4E 31 3A 4E 31 B2 30  00 CC 06 54 01 4C 24 B2  |.N1:N1.0...T.L$.|
000002B0: C8 28 22 2A 2A 20 C7 52  41 4E 44 20 D4 4F 54 41  |.("** .RAND .OTA|
000002C0: 4C 20 2A 2A 22 AA 53 24  2C 33 31 29 00 E2 06 5E  |L **".S$,31)...^|
000002D0: 01 8B 20 42 30 20 A7 20  58 B2 4E 30 3A 8D 20 35  |.. B0 . X.N0:. 5|
000002E0: 30 30 00 EE 06 63 01 4E  32 B2 4E 32 AA 31 00 FA  |00...c.N2.N2.1..|
000002F0: 06 68 01 50 32 24 B2 41  32 24 00 06 07 72 01 50  |.h.P2$.A2$...r.P|
00000300: 31 24 B2 41 31 24 00 17  07 7C 01 8B 20 42 30 B2  |1$.A1$...|.. B0.|
00000310: 30 20 89 20 32 30 30 00  1F 07 86 01 A0 20 31 00  |0 . 200...... 1.|
00000320: 25 07 90 01 80 00 30 07  F4 01 99 20 4C 24 3B 58  |%.....0.... L$;X|
00000330: 00 36 07 FE 01 8E 00 00  00                       |.6.......       |

....... "..REPORT GENERATOR - SUMMARY LI
STING".4.....\.... "BEFORE RUNNING THIS 
PROGRAM, YOU...(.. "SHOULD HAVE SORTED A
 SIX-FIELD DATA...2.. "FILE IN THE FOLLO
WING ORDER OF.W.<.. "FIELDS:  FIELD 4 (P
ROVINCE, STATE)...F.. "         FIELD 3 
(CITY)...P.. "USING PROGRAM 'FILESORT'..
.Z...1.D.. "FILE NAME";F$.@.N.. 1,8,3,F$
.].X..: NAME FIELDS IN SORTED.{....:   A
ND BREAK ORDER HERE.....S$."            
                "...H..1,A4$,A3$,A2$,A1$
,A5$,A6$.T.R.B0.ST:B1.0:B2.0.....B1.A1$.
.P1$.....B2.A2$..P2$...... P1$."" . 355.
,.,.L$.H(P1$.S$,10)." ".H(P2$.S$,12).Z.6
.. B0 . B1 . B2 . X.N2:. 500:N1.N1.N2:N2
.0..@.L$.H(L$,10)."* TOTAL *".H(S$,10).
..J.. B0 . B1 . X.N1:. 500:N0.N0.N1:N1.0
.L.T.L$.H("** GRAND TOTAL **".S$,31)...^
.. B0 . X.N0:. 500...C.N2.N2.1...H.P2$.A
2$...R.P1$.A1$...|.. B0.0 . 200.....  1.
%.....0.... L$;X.6.......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL