DFREPORT
FILE INFORMATION
FILENAME(S): DFREPORT
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 17:23:58
APPEARS ON: 1 disk(s)
FILE HASH
945e68646bf9379415466840d974200f0a276684bbebb8822b2520c63f3f8753
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ULTILITIES | DFREPORT | PRG | Quetzal & Style | 25 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 40 08 F4 01 8F 2D 44 41 54 41 46 49 4C 45 |..@....-DATAFILE|
00000010: 20 32 2E 36 20 53 55 42 50 52 4F 47 52 41 4D 20 | 2.6 SUBPROGRAM |
00000020: 44 46 52 45 50 4F 52 54 20 42 59 20 4D 49 4B 45 |DFREPORT BY MIKE|
00000030: 20 4B 4F 4E 53 48 41 4B 20 28 43 29 31 39 38 33 | KONSHAK (C)1983|
00000040: 00 83 08 F6 01 8F 2D 46 4F 52 20 31 35 32 35 2C |......-FOR 1525,|
00000050: 20 4D 50 53 38 30 31 2C 20 47 45 4D 49 4E 49 31 | MPS801, GEMINI1|
00000060: 30 58 2C 20 4F 4B 49 44 41 54 41 39 32 41 20 45 |0X, OKIDATA92A E|
00000070: 50 53 4F 4E 52 58 38 30 20 41 4E 44 20 4F 54 48 |PSONRX80 AND OTH|
00000080: 45 52 53 00 B5 08 F8 01 9F 34 2C 34 3A 43 52 24 |ERS......4,4:CR$|
00000090: B2 C7 28 31 33 29 3A 42 24 B2 C7 28 33 32 29 3A |..(13):B$..(32):|
000000A0: 42 31 24 B2 C7 28 31 30 29 3A 8B 50 57 B2 30 A7 |B1$..(10):.PW.0.|
000000B0: 50 57 B2 38 30 00 BE 08 FA 01 89 36 31 34 00 D8 |PW.80......614..|
000000C0: 08 FC 01 8F 2D 2D 2D 2D 4C 4F 41 44 20 53 55 42 |....----LOAD SUB|
000000D0: 50 52 4F 47 52 41 4D 53 00 FE 08 FE 01 99 22 93 |PROGRAMS......".|
000000E0: 11 11 20 20 20 20 20 20 20 4C 4F 41 44 49 4E 47 |.. LOADING|
000000F0: 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D 22 00 10 | MAIN PROGRAM"..|
00000100: 09 00 02 93 22 44 41 54 41 46 49 4C 45 22 2C 38 |...."DATAFILE",8|
00000110: 00 3D 09 02 02 99 22 93 11 11 20 20 4C 4F 41 44 |.=...."... LOAD|
00000120: 49 4E 47 20 4D 41 49 4C 49 4E 47 20 4C 41 42 45 |ING MAILING LABE|
00000130: 4C 20 53 55 42 50 52 4F 47 52 41 4D 22 00 4D 09 |L SUBPROGRAM".M.|
00000140: 04 02 93 22 44 46 4D 41 49 4C 22 2C 38 00 63 09 |..."DFMAIL",8.c.|
00000150: 06 02 8F 2D 2D 2D 2D 51 55 49 54 20 52 4F 55 54 |...----QUIT ROUT|
00000160: 49 4E 45 00 91 09 08 02 99 22 93 11 11 51 55 49 |INE......"...QUI|
00000170: 54 49 4E 47 20 4E 4F 57 20 57 49 4C 4C 20 45 52 |TING NOW WILL ER|
00000180: 41 53 45 20 43 55 52 52 45 4E 54 20 44 41 54 41 |ASE CURRENT DATA|
00000190: 22 00 CA 09 0A 02 99 22 11 41 52 45 20 59 4F 55 |"......".ARE YOU|
000001A0: 20 53 55 52 45 20 59 4F 55 20 57 41 4E 54 20 54 | SURE YOU WANT T|
000001B0: 4F 20 51 55 49 54 3F 22 3A 99 22 11 11 20 12 59 |O QUIT?":.".. .Y|
000001C0: 92 20 4F 52 20 12 4E 92 20 3F 00 DE 09 0C 02 A1 |. OR .N. ?......|
000001D0: 41 24 3A 8B 41 24 B2 22 22 20 A7 35 32 34 00 EE |A$:.A$."" .524..|
000001E0: 09 0E 02 8B 41 24 B2 22 4E 22 A7 36 31 34 00 FE |....A$."N".614..|
000001F0: 09 10 02 8B 41 24 B2 22 59 22 A7 35 33 32 00 07 |....A$."Y".532..|
00000200: 0A 12 02 89 35 32 34 00 27 0A 14 02 99 22 93 11 |....524.'...."..|
00000210: 11 53 55 42 50 52 4F 47 52 41 4D 20 54 45 52 4D |.SUBPROGRAM TERM|
00000220: 49 4E 41 54 45 44 22 00 54 0A 16 02 99 22 11 12 |INATED".T...."..|
00000230: 44 41 54 41 46 49 4C 45 92 20 42 59 20 4D 49 4B |DATAFILE. BY MIK|
00000240: 45 20 4B 4F 4E 53 48 41 4B 20 28 43 29 31 39 38 |E KONSHAK (C)198|
00000250: 33 22 3A 80 00 72 0A 18 02 8F 2D 2D 2D 2D 53 45 |3":..r....----SE|
00000260: 41 52 43 48 20 52 4F 55 54 49 4E 45 53 20 4D 45 |ARCH ROUTINES ME|
00000270: 4E 55 00 A2 0A 1A 02 99 22 93 20 12 20 20 20 20 |NU......". . |
00000280: 20 20 20 20 20 20 20 50 52 49 4E 54 20 4F 50 54 | PRINT OPT|
00000290: 49 4F 4E 53 20 4D 45 4E 55 20 20 20 20 20 20 20 |IONS MENU |
000002A0: 20 22 00 C3 0A 1C 02 99 22 11 20 20 20 20 12 41 | "......". .A|
000002B0: 92 4C 4C 20 52 45 43 4F 52 44 53 20 49 4E 20 46 |.LL RECORDS IN F|
000002C0: 49 4C 45 00 E9 0A 1E 02 99 22 11 20 20 20 20 12 |ILE......". .|
000002D0: 53 92 45 4C 45 43 54 20 49 4E 44 49 56 49 44 55 |S.ELECT INDIVIDU|
000002E0: 41 4C 20 52 45 43 4F 52 44 00 16 0B 20 02 99 22 |AL RECORD... .."|
000002F0: 11 20 20 20 20 12 46 92 49 4E 44 20 52 45 43 4F |. .F.IND RECO|
00000300: 52 44 53 20 57 49 54 48 20 43 4F 4D 4D 4F 4E 20 |RDS WITH COMMON |
00000310: 46 49 45 4C 44 53 00 35 0B 22 02 99 22 11 20 20 |FIELDS.5."..". |
00000320: 20 20 12 45 92 58 49 54 20 54 4F 20 4D 41 49 4E | .E.XIT TO MAIN|
00000330: 20 4D 45 4E 55 00 66 0B 24 02 99 22 11 50 4F 53 | MENU.f.$..".POS|
00000340: 49 54 49 4F 4E 20 50 41 50 45 52 20 49 4E 20 50 |ITION PAPER IN P|
00000350: 52 49 4E 54 45 52 20 41 54 20 54 4F 50 20 4F 46 |RINTER AT TOP OF|
00000360: 20 50 41 47 45 22 00 95 0B 26 02 99 22 50 52 49 | PAGE"...&.."PRI|
00000370: 4E 54 45 52 20 4D 41 59 20 53 54 4F 50 20 44 55 |NTER MAY STOP DU|
00000380: 52 49 4E 47 20 50 52 49 4E 54 49 4E 47 20 49 46 |RING PRINTING IF|
00000390: 20 54 48 45 22 00 C1 0B 28 02 99 22 43 4F 4D 50 | THE"...(.."COMP|
000003A0: 55 54 45 52 20 4E 45 45 44 53 20 54 4F 20 52 45 |UTER NEEDS TO RE|
000003B0: 41 4C 4C 4F 43 41 54 45 20 4D 45 4D 4F 52 59 2E |ALLOCATE MEMORY.|
000003C0: 22 00 F2 0B 2A 02 99 22 11 20 12 20 20 20 20 20 |"...*..". . |
000003D0: 20 50 52 45 53 53 20 54 48 45 20 41 50 50 52 4F | PRESS THE APPRO|
000003E0: 50 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 20 |PRIATE KEY |
000003F0: 20 22 00 06 0C 2C 02 A1 43 24 3A 8B 43 24 B2 22 | "...,..C$:.C$."|
00000400: 22 20 A7 35 35 36 00 16 0C 2E 02 8B 43 24 B2 22 |" .556......C$."|
00000410: 41 22 A7 36 30 36 00 26 0C 30 02 8B 43 24 B2 22 |A".606.&.0..C$."|
00000420: 53 22 A7 35 37 30 00 36 0C 32 02 8B 43 24 B2 22 |S".570.6.2..C$."|
00000430: 46 22 A7 35 38 30 00 46 0C 34 02 8B 43 24 B2 22 |F".580.F.4..C$."|
00000440: 45 22 A7 36 31 34 00 4F 0C 36 02 89 35 35 36 00 |E".614.O.6..556.|
00000450: 6A 0C 38 02 8F 2D 2D 2D 2D 53 45 4C 45 43 54 20 |j.8..----SELECT |
00000460: 4F 4E 45 20 52 45 43 4F 52 44 00 91 0C 3A 02 85 |ONE RECORD...:..|
00000470: 22 93 11 50 52 49 4E 54 20 57 48 49 43 48 20 52 |"..PRINT WHICH R|
00000480: 45 43 4F 52 44 22 3B 49 24 3A 49 B2 C5 28 49 24 |ECORD";I$:I..(I$|
00000490: 29 00 C6 0C 3C 02 8B 49 B1 58 A7 99 22 4E 4F 20 |)...<..I.X.."NO |
000004A0: 53 55 43 48 20 52 45 43 4F 52 44 20 45 58 49 53 |SUCH RECORD EXIS|
000004B0: 54 53 2C 20 54 52 59 20 41 47 41 49 4E 91 91 91 |TS, TRY AGAIN...|
000004C0: 22 3A 89 35 37 30 00 EB 0C 3E 02 8B 4B B2 32 A7 |":.570...>..K.2.|
000004D0: 8D 38 31 30 3A 8D 38 32 34 3A 8D 38 34 32 3A 98 |.810:.824:.842:.|
000004E0: 34 2C 42 31 24 3B 3A 89 35 33 38 00 01 0D 40 02 |4,B1$;:.538...@.|
000004F0: 8D 37 39 38 3A 98 34 2C 42 31 24 3B 3A 89 35 33 |.798:.4,B1$;:.53|
00000500: 38 00 1F 0D 42 02 8F 2D 2D 2D 2D 46 49 4E 44 20 |8...B..----FIND |
00000510: 52 45 43 4F 52 44 20 28 53 45 41 52 43 48 29 00 |RECORD (SEARCH).|
00000520: 52 0D 44 02 99 22 93 11 20 12 20 20 20 20 46 49 |R.D..".. . FI|
00000530: 4E 44 20 52 45 43 4F 52 44 53 20 57 49 54 48 20 |ND RECORDS WITH |
00000540: 43 4F 4D 4D 4F 4E 20 49 54 45 4D 53 20 20 20 20 |COMMON ITEMS |
00000550: 11 22 00 74 0D 46 02 81 20 4E B2 31 A4 46 3A 99 |.".t.F.. N.1.F:.|
00000560: 22 20 12 22 3B 4E 3B 22 92 20 22 3B 46 24 28 4E |" .";N;". ";F$(N|
00000570: 29 3A 82 4E 00 9D 0D 48 02 85 22 11 57 48 49 43 |):.N...H..".WHIC|
00000580: 48 20 46 49 45 4C 44 20 49 53 20 54 4F 20 42 45 |H FIELD IS TO BE|
00000590: 20 53 45 41 52 43 48 45 44 22 3B 53 46 00 B8 0D | SEARCHED";SF...|
000005A0: 4A 02 8B 53 46 B3 30 B0 53 46 B1 46 A7 99 22 91 |J..SF.0.SF.F..".|
000005B0: 91 91 22 3A 89 35 38 34 00 FB 0D 4C 02 99 22 45 |..":.584...L.."E|
000005C0: 4E 54 45 52 20 12 43 4F 4D 4D 4F 4E 20 49 54 45 |NTER .COMMON ITE|
000005D0: 4D 92 20 22 3A 99 22 28 54 48 45 20 45 4E 54 49 |M. ":."(THE ENTI|
000005E0: 52 45 20 53 54 52 49 4E 47 20 49 53 20 4E 4F 54 |RE STRING IS NOT|
000005F0: 20 52 45 51 55 49 52 45 44 29 22 00 15 0E 4E 02 | REQUIRED)"...N.|
00000600: 99 22 12 22 3B 46 24 28 53 46 29 3B 22 92 20 22 |.".";F$(SF);". "|
00000610: 3B 3A 85 54 24 00 28 0E 50 02 8B 4B B2 32 A7 8D |;:.T$.(.P..K.2..|
00000620: 38 31 30 3A 8D 38 32 34 00 33 0E 52 02 81 49 B2 |810:.824.3.R..I.|
00000630: 31 A4 58 00 53 0E 54 02 99 22 11 53 45 41 52 43 |1.X.S.T..".SEARC|
00000640: 48 49 4E 47 20 52 45 43 4F 52 44 22 3B 49 3B 22 |HING RECORD";I;"|
00000650: 91 91 22 00 7E 0E 56 02 8B 54 24 B2 C8 28 52 45 |..".~.V..T$..(RE|
00000660: 43 24 28 4B 25 28 49 29 2C 53 46 29 2C C3 28 54 |C$(K%(I),SF),.(T|
00000670: 24 29 29 A7 91 4B 8D 37 39 38 2C 38 34 32 00 85 |$))..K.798,842..|
00000680: 0E 58 02 82 49 00 96 0E 5A 02 98 34 2C 42 31 24 |.X..I...Z..4,B1$|
00000690: 3B 3A 89 35 33 38 00 B1 0E 5C 02 8F 2D 2D 2D 2D |;:.538...\..----|
000006A0: 50 52 49 4E 54 20 41 4C 4C 20 52 45 43 4F 52 44 |PRINT ALL RECORD|
000006B0: 53 00 DB 0E 5E 02 99 22 93 11 20 50 52 49 4E 54 |S...^..".. PRINT|
000006C0: 49 4E 47 20 48 45 41 44 49 4E 47 22 3A 8B 4B B2 |ING HEADING":.K.|
000006D0: 32 A7 8D 38 31 30 3A 8D 38 32 34 00 0D 0F 60 02 |2..810:.824...`.|
000006E0: 81 49 B2 31 A4 58 3A 99 22 91 20 50 52 49 4E 54 |.I.1.X:.". PRINT|
000006F0: 49 4E 47 20 52 45 43 4F 52 44 20 23 22 3B 49 3A |ING RECORD #";I:|
00000700: 91 4B 8D 37 39 38 2C 38 34 32 3A 82 49 00 1E 0F |.K.798,842:.I...|
00000710: 62 02 98 34 2C 42 31 24 3B 3A 89 35 33 38 00 3A |b..4,B1$;:.538.:|
00000720: 0F 64 02 8F 2D 2D 2D 2D 50 52 49 4E 54 20 52 45 |.d..----PRINT RE|
00000730: 43 4F 52 44 53 20 4D 45 4E 55 00 6B 0F 66 02 99 |CORDS MENU.k.f..|
00000740: 22 93 20 12 20 20 20 20 20 20 20 20 52 45 50 4F |". . REPO|
00000750: 52 54 20 50 52 49 4E 54 4F 55 54 20 4D 45 4E 55 |RT PRINTOUT MENU|
00000760: 20 20 20 20 20 20 20 20 20 20 22 00 94 0F 68 02 | "...h.|
00000770: 99 22 11 20 20 20 20 20 20 12 4C 92 49 53 54 20 |.". .L.IST |
00000780: 52 45 43 4F 52 44 53 20 55 4E 46 4F 52 4D 41 54 |RECORDS UNFORMAT|
00000790: 54 45 44 22 00 BA 0F 6A 02 99 22 11 20 20 20 20 |TED"...j..". |
000007A0: 20 20 12 50 92 52 45 2D 44 45 46 49 4E 45 44 20 | .P.RE-DEFINED |
000007B0: 46 4F 52 4D 41 54 20 4F 52 22 00 DC 0F 6C 02 99 |FORMAT OR"...l..|
000007C0: 22 11 20 20 20 20 20 20 12 44 92 45 46 49 4E 45 |". .D.EFINE|
000007D0: 20 4E 45 57 20 46 4F 52 4D 41 54 22 00 05 10 6E | NEW FORMAT"...n|
000007E0: 02 99 22 11 11 20 20 20 20 20 20 12 45 92 58 49 |..".. .E.XI|
000007F0: 54 20 54 4F 20 4D 41 49 4E 20 50 52 4F 47 52 41 |T TO MAIN PROGRA|
00000800: 4D 20 4F 52 22 00 2B 10 70 02 99 22 11 20 20 20 |M OR".+.p..". |
00000810: 20 20 20 12 4D 92 41 49 4C 49 4E 47 20 4C 41 42 | .M.AILING LAB|
00000820: 45 4C 20 50 52 4F 47 52 41 4D 22 00 48 10 72 02 |EL PROGRAM".H.r.|
00000830: 99 22 11 20 20 20 20 20 20 12 51 92 55 49 54 20 |.". .Q.UIT |
00000840: 50 52 4F 47 52 41 4D 22 00 7A 10 74 02 99 22 11 |PROGRAM".z.t..".|
00000850: 11 20 12 20 20 20 20 20 20 50 52 45 53 53 20 54 |. . PRESS T|
00000860: 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B |HE APPROPRIATE K|
00000870: 45 59 20 20 20 20 20 20 20 22 00 8E 10 76 02 A1 |EY "...v..|
00000880: 43 24 3A 8B 43 24 B2 22 22 20 A7 36 33 30 00 A3 |C$:.C$."" .630..|
00000890: 10 78 02 8B 43 24 B2 22 4C 22 A7 4B B2 31 3A 89 |.x..C$."L".K.1:.|
000008A0: 35 33 38 00 B8 10 7A 02 8B 43 24 B2 22 50 22 A7 |538...z..C$."P".|
000008B0: 4B B2 32 3A 89 37 36 36 00 CF 10 7C 02 8B 43 24 |K.2:.766...|..C$|
000008C0: B2 22 45 22 A7 98 34 3A A0 34 3A 89 35 31 30 00 |."E"..4:.4:.510.|
000008D0: E6 10 7E 02 8B 43 24 B2 22 4D 22 A7 98 34 3A A0 |..~..C$."M"..4:.|
000008E0: 34 3A 89 35 31 34 00 FB 10 80 02 8B 43 24 B2 22 |4:.514......C$."|
000008F0: 44 22 A7 4B B2 32 3A 89 36 34 36 00 12 11 82 02 |D".K.2:.646.....|
00000900: 8B 43 24 B2 22 51 22 A7 98 34 3A A0 34 3A 89 35 |.C$."Q"..4:.4:.5|
00000910: 32 30 00 1B 11 84 02 89 36 33 30 00 4C 11 86 02 |20......630.L...|
00000920: 99 22 93 11 12 52 45 50 4F 52 54 20 53 49 5A 45 |."...REPORT SIZE|
00000930: 92 20 55 50 20 54 4F 20 31 33 36 20 43 48 41 52 |. UP TO 136 CHAR|
00000940: 41 43 54 45 52 20 57 49 44 45 2E 22 00 7B 11 88 |ACTER WIDE.".{..|
00000950: 02 99 22 11 50 52 49 4E 54 45 52 20 4D 55 53 54 |..".PRINTER MUST|
00000960: 20 42 45 20 49 4E 49 54 49 41 4C 49 5A 45 44 20 | BE INITIALIZED |
00000970: 46 4F 52 20 57 49 44 54 48 53 22 00 A9 11 8A 02 |FOR WIDTHS".....|
00000980: 99 22 47 52 45 41 54 45 52 20 54 48 41 4E 20 38 |."GREATER THAN 8|
00000990: 30 20 43 48 41 52 41 43 54 45 52 53 2E 20 43 48 |0 CHARACTERS. CH|
000009A0: 45 43 4B 20 59 4F 55 52 22 00 D8 11 8C 02 99 22 |ECK YOUR"......"|
000009B0: 50 52 49 4E 54 45 52 20 4D 41 4E 55 41 4C 20 54 |PRINTER MANUAL T|
000009C0: 4F 20 48 4F 57 20 54 4F 20 50 52 49 4E 54 20 31 |O HOW TO PRINT 1|
000009D0: 33 36 20 43 48 52 53 22 00 0C 12 8E 02 99 22 11 |36 CHRS"......".|
000009E0: 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 52 41 43 |NUMBER OF CHARAC|
000009F0: 54 45 52 53 3F 22 3A 99 22 3F 20 20 20 9D 9D 9D |TERS?":."? ...|
00000A00: 22 3B 50 57 3A 85 22 91 22 3B 50 57 00 1C 12 90 |";PW:.".";PW....|
00000A10: 02 8B 50 57 B1 31 33 36 A7 36 35 34 00 4B 12 92 |..PW.136.654.K..|
00000A20: 02 99 22 93 11 12 54 49 54 4C 45 20 46 4F 52 4D |.."...TITLE FORM|
00000A30: 41 54 92 20 55 50 20 54 4F 20 34 20 54 49 54 4C |AT. UP TO 4 TITL|
00000A40: 45 20 4C 49 4E 45 53 20 4F 46 22 00 76 12 94 02 |E LINES OF".v...|
00000A50: 99 22 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 41 54 |."INFORMATION AT|
00000A60: 20 54 48 45 20 54 4F 50 20 4F 46 20 54 48 45 20 | THE TOP OF THE |
00000A70: 46 4F 52 4D 2E 22 00 AF 12 96 02 99 22 11 4E 55 |FORM."......".NU|
00000A80: 4D 42 45 52 20 4F 46 20 4C 49 4E 45 53 3F 22 3A |MBER OF LINES?":|
00000A90: 99 22 3F 20 20 20 9D 9D 9D 22 3B 4E 4C 3A 85 22 |."? ...";NL:."|
00000AA0: 91 22 3B 4E 4C 3A 8B 4E 4C B1 34 A7 36 36 32 00 |.";NL:.NL.4.662.|
00000AB0: DB 12 98 02 81 4A B2 31 A4 4E 4C 3A 99 22 54 49 |.....J.1.NL:."TI|
00000AC0: 54 4C 45 20 23 22 3B 4A 3A 99 22 3F 20 3E 20 20 |TLE #";J:."? > |
00000AD0: 9D 9D 9D 22 3B 54 54 24 28 4A 29 00 F3 12 9A 02 |...";TT$(J).....|
00000AE0: 8B C3 28 54 54 24 28 4A 29 29 B1 33 37 A7 99 22 |..(TT$(J)).37.."|
00000AF0: 91 22 3B 00 19 13 9C 02 85 22 91 22 3B 54 54 24 |.";......".";TT$|
00000B00: 28 4A 29 3A 8B 54 54 24 28 4A 29 B2 22 22 A7 54 |(J):.TT$(J)."".T|
00000B10: 54 24 28 4A 29 B2 22 3E 22 00 20 13 9E 02 82 4A |T$(J).">". ....J|
00000B20: 00 69 13 A0 02 99 22 93 12 43 4F 4C 55 4D 4E 20 |.i...."..COLUMN |
00000B30: 46 4F 52 4D 41 54 92 20 55 50 20 54 4F 20 38 20 |FORMAT. UP TO 8 |
00000B40: 43 4F 4C 55 4D 4E 53 20 57 49 54 48 20 32 22 3A |COLUMNS WITH 2":|
00000B50: 99 22 53 50 41 43 45 53 20 42 45 54 57 45 45 4E |."SPACES BETWEEN|
00000B60: 20 43 4F 4C 55 4D 4E 53 22 00 A4 13 A2 02 99 22 | COLUMNS"......"|
00000B70: 11 4E 55 4D 42 45 52 20 4F 46 20 43 4F 4C 55 4D |.NUMBER OF COLUM|
00000B80: 4E 53 3F 22 3A 99 22 3F 20 20 20 9D 9D 9D 22 3B |NS?":."? ...";|
00000B90: 4E 43 3A 85 22 91 22 3B 4E 43 3A 8B 4E 43 B1 38 |NC:.".";NC:.NC.8|
00000BA0: A7 36 37 34 00 DB 13 A4 02 81 4A B2 31 A4 4E 43 |.674......J.1.NC|
00000BB0: 3A 99 22 50 4F 53 49 54 49 4F 4E 20 4F 46 20 43 |:."POSITION OF C|
00000BC0: 4F 4C 55 4D 4E 20 23 22 3B 4A 3A 99 22 3F 20 20 |OLUMN #";J:."? |
00000BD0: 20 9D 9D 9D 22 3B 50 43 28 4A 29 00 ED 13 A6 02 | ...";PC(J).....|
00000BE0: 85 22 91 22 3B 50 43 28 4A 29 3A 82 4A 00 1D 14 |.".";PC(J):.J...|
00000BF0: A8 02 99 22 93 12 48 45 41 44 49 4E 47 20 46 4F |..."..HEADING FO|
00000C00: 52 4D 41 54 92 20 43 4F 4C 55 4D 4E 20 48 45 41 |RMAT. COLUMN HEA|
00000C10: 44 49 4E 47 53 20 43 41 4E 4E 4F 54 22 00 3E 14 |DINGS CANNOT".>.|
00000C20: AA 02 99 22 45 58 43 45 45 44 20 57 49 44 54 48 |..."EXCEED WIDTH|
00000C30: 20 4F 46 20 43 4F 4C 55 4D 4E 53 3A 11 22 00 62 | OF COLUMNS:.".b|
00000C40: 14 AC 02 81 4A B2 31 A4 4E 43 3A 99 22 43 4F 4C |....J.1.NC:."COL|
00000C50: 55 4D 4E 22 3B 4A 3B 22 20 48 45 41 44 49 4E 47 |UMN";J;" HEADING|
00000C60: 22 3B 00 7C 14 AE 02 8B 4A B2 4E 43 A7 99 38 30 |";.|....J.NC..80|
00000C70: AB 50 43 28 4A 29 3B 3A 89 36 39 30 00 92 14 B0 |.PC(J);:.690....|
00000C80: 02 99 50 43 28 4A AA 31 29 AB 32 AB 50 43 28 4A |..PC(J.1).2.PC(J|
00000C90: 29 3B 00 AA 14 B2 02 99 22 20 43 48 41 52 41 43 |);......" CHARAC|
00000CA0: 54 45 52 53 20 57 49 44 45 22 00 E3 14 B4 02 99 |TERS WIDE"......|
00000CB0: 22 3F 20 3E 20 20 9D 9D 9D 22 3B 48 43 24 28 4A |"? > ...";HC$(J|
00000CC0: 29 3A 85 22 91 22 3B 48 43 24 28 4A 29 3A 8B 48 |):.".";HC$(J):.H|
00000CD0: 43 24 28 4A 29 B2 22 22 A7 48 43 24 28 4A 29 B2 |C$(J)."".HC$(J).|
00000CE0: 22 3E 22 00 EA 14 B6 02 82 4A 00 1B 15 B8 02 99 |">"......J......|
00000CF0: 22 93 43 48 4F 4F 53 45 20 57 48 49 43 48 20 46 |".CHOOSE WHICH F|
00000D00: 49 45 4C 44 53 20 47 4F 20 55 4E 44 45 52 20 54 |IELDS GO UNDER T|
00000D10: 48 45 20 43 4F 4C 55 4D 4E 53 22 00 55 15 BA 02 |HE COLUMNS".U...|
00000D20: 99 22 45 4E 54 45 52 20 12 30 92 20 49 46 20 41 |."ENTER .0. IF A|
00000D30: 44 44 49 54 49 4F 4E 41 4C 20 46 49 45 4C 44 53 |DDITIONAL FIELDS|
00000D40: 20 41 52 45 22 3A 99 22 4E 4F 54 20 44 45 53 49 | ARE":."NOT DESI|
00000D50: 52 45 44 2E 22 00 75 15 BC 02 81 4E B2 31 A4 46 |RED.".u....N.1.F|
00000D60: 3A 99 22 12 22 3B 4E 3B 22 92 20 22 3B 46 24 28 |:.".";N;". ";F$(|
00000D70: 4E 29 3A 82 4E 00 9E 15 BE 02 81 4A B2 31 A4 4E |N):.N......J.1.N|
00000D80: 43 3A 99 22 13 11 11 11 11 22 3B A3 32 35 29 22 |C:.".....";.25)"|
00000D90: 43 4F 4C 55 4D 4E 22 3B 4A 3B 22 11 11 22 00 CA |COLUMN";J;".."..|
00000DA0: 15 C0 02 81 4C B2 31 A4 33 3A 99 A3 32 35 29 22 |....L.1.3:..25)"|
00000DB0: 91 46 49 45 4C 44 22 3B 4C 3B 22 20 30 20 9D 9D |.FIELD";L;" 0 ..|
00000DC0: 22 3B 4D 4C 24 28 4A 2C 4C 29 00 E3 15 C2 02 99 |";ML$(J,L)......|
00000DD0: A3 33 32 29 3B 22 91 22 3B 3A 85 4D 4C 24 28 4A |.32);".";:.ML$(J|
00000DE0: 2C 4C 29 00 EA 15 C4 02 82 4C 00 F1 15 C6 02 82 |,L)......L......|
00000DF0: 4A 00 24 16 C8 02 99 22 93 11 11 44 4F 20 59 4F |J.$...."...DO YO|
00000E00: 55 20 57 49 53 48 20 54 4F 20 52 45 56 49 45 57 |U WISH TO REVIEW|
00000E10: 20 59 4F 55 52 20 46 4F 52 4D 41 54 20 41 4E 44 | YOUR FORMAT AND|
00000E20: 2F 4F 52 22 00 4F 16 CA 02 99 22 4D 41 4B 45 20 |/OR".O...."MAKE |
00000E30: 43 4F 52 52 45 43 54 49 4F 4E 53 3F 20 20 50 52 |CORRECTIONS? PR|
00000E40: 45 53 53 20 12 59 92 20 4F 52 20 12 4E 92 22 00 |ESS .Y. OR .N.".|
00000E50: 62 16 CC 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 |b....A$:.A$."".7|
00000E60: 31 36 00 72 16 CE 02 8B 41 24 B2 22 59 22 A7 36 |16.r....A$."Y".6|
00000E70: 34 36 00 82 16 D0 02 8B 41 24 B2 22 4E 22 A7 37 |46......A$."N".7|
00000E80: 32 36 00 8B 16 D2 02 89 37 31 36 00 A7 16 D4 02 |26......716.....|
00000E90: 8F 2D 2D 2D 2D 53 41 56 45 20 52 45 50 4F 52 54 |.----SAVE REPORT|
00000EA0: 20 46 4F 52 4D 41 54 00 D5 16 D6 02 99 22 11 20 | FORMAT......". |
00000EB0: 12 53 41 56 45 20 46 4F 52 4D 41 54 92 3F 20 20 |.SAVE FORMAT.? |
00000EC0: 20 20 20 20 20 20 20 20 20 20 12 59 92 20 4F 52 | .Y. OR|
00000ED0: 20 12 4E 92 22 00 E8 16 D8 02 A1 41 24 3A 8B 41 | .N."......A$:.A|
00000EE0: 24 B2 22 22 A7 37 32 38 00 F8 16 DA 02 8B 41 24 |$."".728......A$|
00000EF0: B2 22 4E 22 A7 35 33 38 00 08 17 DC 02 8B 41 24 |."N".538......A$|
00000F00: B2 22 59 22 A7 37 33 36 00 11 17 DE 02 89 37 32 |."Y".736......72|
00000F10: 38 00 34 17 E0 02 99 22 11 53 41 56 45 20 55 4E |8.4....".SAVE UN|
00000F20: 44 45 52 20 57 48 41 54 20 46 49 4C 45 20 4E 41 |DER WHAT FILE NA|
00000F30: 4D 45 3F 22 00 58 17 E2 02 99 22 11 20 20 22 3B |ME?".X....". ";|
00000F40: 4E 46 24 3A 85 22 91 22 3B 4E 46 24 3A 8B 4E 46 |NF$:.".";NF$:.NF|
00000F50: 24 B2 22 22 A7 36 31 34 00 7C 17 E4 02 9F 31 35 |$."".614.|....15|
00000F60: 2C 38 2C 31 35 3A 98 31 35 2C 22 53 30 3A 52 50 |,8,15:.15,"S0:RP|
00000F70: 5D 20 22 AA 4E 46 24 3A 8D 38 37 36 00 A0 17 E6 |] ".NF$:.876....|
00000F80: 02 9F 35 2C 38 2C 35 2C 22 30 3A 52 50 5D 20 22 |..5,8,5,"0:RP] "|
00000F90: AA 4E 46 24 AA 22 2C 53 2C 57 22 3A 8D 38 37 36 |.NF$.",S,W":.876|
00000FA0: 00 BD 17 E8 02 98 35 2C 50 57 3B 43 52 24 3B 4E |......5,PW;CR$;N|
00000FB0: 4C 3B 43 52 24 3B 4E 43 3A 8D 38 37 36 00 C9 17 |L;CR$;NC:.876...|
00000FC0: EA 02 81 4A B2 31 A4 4E 4C 00 DC 17 EC 02 98 35 |...J.1.NL......5|
00000FD0: 2C 54 54 24 28 4A 29 3A 8D 38 37 36 00 E3 17 EE |,TT$(J):.876....|
00000FE0: 02 82 4A 00 EF 17 F0 02 81 49 B2 31 A4 4E 43 00 |..J......I.1.NC.|
00000FF0: 0C 18 F2 02 98 35 2C 50 43 28 49 29 3B 43 52 24 |.....5,PC(I);CR$|
00001000: 3B 48 43 24 28 49 29 3A 8D 38 37 36 00 17 18 F4 |;HC$(I):.876....|
00001010: 02 81 4E B2 31 A4 33 00 2C 18 F6 02 98 35 2C 4D |..N.1.3.,....5,M|
00001020: 4C 24 28 49 2C 4E 29 3A 8D 38 37 36 00 36 18 F8 |L$(I,N):.876.6..|
00001030: 02 82 4E 3A 82 49 00 51 18 FA 02 98 35 2C 45 24 |..N:.I.Q....5,E$|
00001040: 3A 8D 38 37 36 3A A0 35 3A A0 31 35 3A 89 35 33 |:.876:.5:.15:.53|
00001050: 38 00 6D 18 FC 02 8F 2D 2D 2D 2D 4C 4F 41 44 20 |8.m....----LOAD |
00001060: 52 45 50 4F 52 54 20 46 4F 52 4D 41 54 00 92 18 |REPORT FORMAT...|
00001070: FE 02 99 22 11 11 4C 4F 41 44 20 46 4F 52 4D 41 |..."..LOAD FORMA|
00001080: 54 20 46 52 4F 4D 20 57 48 41 54 20 46 49 4C 45 |T FROM WHAT FILE|
00001090: 3F 22 00 B6 18 00 03 99 22 11 20 20 22 3B 4E 46 |?"......". ";NF|
000010A0: 24 3A 85 22 91 22 3B 4E 46 24 3A 8B 4E 46 24 B2 |$:.".";NF$:.NF$.|
000010B0: 22 22 A7 36 31 34 00 E3 18 02 03 9F 31 35 2C 38 |"".614......15,8|
000010C0: 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 52 50 |,15:.5,8,5,"0:RP|
000010D0: 5D 20 22 AA 4E 46 24 AA 22 2C 53 2C 52 22 3A 8D |] ".NF$.",S,R":.|
000010E0: 38 37 36 00 F8 18 04 03 84 35 2C 50 57 2C 4E 4C |876......5,PW,NL|
000010F0: 2C 4E 43 3A 8D 38 37 36 00 04 19 06 03 81 4A B2 |,NC:.876......J.|
00001100: 31 A4 4E 4C 00 17 19 08 03 84 35 2C 54 54 24 28 |1.NL......5,TT$(|
00001110: 4A 29 3A 8D 38 37 36 00 1E 19 0A 03 82 4A 00 2A |J):.876......J.*|
00001120: 19 0C 03 81 49 B2 31 A4 4E 43 00 43 19 0E 03 84 |....I.1.NC.C....|
00001130: 35 2C 50 43 28 49 29 2C 48 43 24 28 49 29 3A 8D |5,PC(I),HC$(I):.|
00001140: 38 37 36 00 4E 19 10 03 81 4E B2 31 A4 33 00 63 |876.N....N.1.3.c|
00001150: 19 12 03 84 35 2C 4D 4C 24 28 49 2C 4E 29 3A 8D |....5,ML$(I,N):.|
00001160: 38 37 36 00 6D 19 14 03 82 4E 3A 82 49 00 80 19 |876.m....N:.I...|
00001170: 16 03 53 B2 53 54 3A 8B 53 B3 B1 30 A7 37 39 34 |..S.ST:.S..0.794|
00001180: 00 8A 19 18 03 84 35 2C 45 24 00 9A 19 1A 03 A0 |......5,E$......|
00001190: 35 3A A0 31 35 3A 89 37 31 32 00 BE 19 1C 03 8F |5:.15:.712......|
000011A0: 2D 2D 2D 2D 50 52 49 4E 54 20 4E 4F 4E 46 4F 52 |----PRINT NONFOR|
000011B0: 4D 41 54 54 45 44 20 4C 49 53 54 49 4E 47 00 F7 |MATTED LISTING..|
000011C0: 19 1E 03 98 34 2C 22 5B 20 52 45 43 4F 52 44 20 |....4,"[ RECORD |
000011D0: 23 22 3B 49 3B 22 20 20 20 5D 22 3B 3A 81 4A B2 |#";I;" ]";:.J.|
000011E0: 31 A4 36 32 3A 98 34 2C 22 2D 22 3B 3A 82 4A 3A |1.62:.4,"-";:.J:|
000011F0: 98 34 2C 42 31 24 3B 00 02 1A 20 03 81 4E B2 31 |.4,B1$;... ..N.1|
00001200: A4 46 00 2C 1A 22 03 98 34 2C 46 24 28 4E 29 3B |.F.,."..4,F$(N);|
00001210: 3A 81 4A B2 31 A4 32 30 AB C3 28 46 24 28 4E 29 |:.J.1.20..(F$(N)|
00001220: 29 3A 98 34 2C 22 2E 22 3B 3A 82 4A 00 41 1A 24 |):.4,".";:.J.A.$|
00001230: 03 98 34 2C 52 45 43 24 28 4B 25 28 49 29 2C 4E |..4,REC$(K%(I),N|
00001240: 29 00 52 1A 26 03 82 4E 3A 98 34 2C 42 31 24 3B |).R.&..N:.4,B1$;|
00001250: 3A 8E 00 68 1A 28 03 8F 2D 2D 2D 2D 50 52 49 4E |:..h.(..----PRIN|
00001260: 54 20 52 45 50 4F 52 54 00 8B 1A 2A 03 50 47 B2 |T REPORT...*.PG.|
00001270: 30 3A 53 24 B2 22 22 3A 81 4A B2 31 A4 50 57 3A |0:S$."":.J.1.PW:|
00001280: 53 24 B2 53 24 AA 42 24 3A 82 4A 00 A9 1A 2C 03 |S$.S$.B$:.J...,.|
00001290: 81 4A B2 31 A4 4E 4C 3A 8B 54 54 24 28 4A 29 B3 |.J.1.NL:.TT$(J).|
000012A0: B1 22 3E 22 A7 8D 38 31 38 00 B2 1A 2E 03 82 4A |.">"..818......J|
000012B0: 3A 8E 00 C8 1A 30 03 8F 2D 2D 2D 2D 43 45 4E 54 |:....0..----CENT|
000012C0: 45 52 20 54 49 54 4C 45 00 E2 1A 32 03 42 B2 B5 |ER TITLE...2.B..|
000012D0: 28 28 50 57 AB C3 28 54 54 24 28 4A 29 29 29 AD |((PW..(TT$(J))).|
000012E0: 32 29 00 07 1B 34 03 98 34 2C C8 28 53 24 2C 42 |2)...4..4,.(S$,B|
000012F0: 29 AA 54 54 24 28 4A 29 3B 42 31 24 3B 3A 50 47 |).TT$(J);B1$;:PG|
00001300: B2 50 47 AA 31 3A 8E 00 22 1B 36 03 8F 2D 2D 2D |.PG.1:..".6..---|
00001310: 2D 50 4F 53 49 54 49 4F 4E 20 48 45 41 44 49 4E |-POSITION HEADIN|
00001320: 47 53 00 57 1B 38 03 8D 38 33 38 3A 50 43 28 4E |GS.W.8..838:PC(N|
00001330: 43 AA 31 29 B2 50 57 AA 33 3A 43 57 B2 50 43 28 |C.1).PW.3:CW.PC(|
00001340: 32 29 AB 32 AB 50 43 28 31 29 3A 8B 50 43 28 31 |2).2.PC(1):.PC(1|
00001350: 29 B1 31 A7 38 32 38 00 71 1B 3A 03 98 34 2C C8 |).1.828.q.:..4,.|
00001360: 28 48 43 24 28 31 29 2C 43 57 29 3B 3A 89 38 33 |(HC$(1),CW);:.83|
00001370: 30 00 94 1B 3C 03 98 34 2C C8 28 53 24 2C 50 43 |0...<..4,.(S$,PC|
00001380: 28 31 29 AB 31 29 AA C8 28 48 43 24 28 31 29 2C |(1).1)..(HC$(1),|
00001390: 43 57 29 3B 00 CF 1B 3E 03 81 4A B2 32 A4 4E 43 |CW);...>..J.2.NC|
000013A0: 3A 4D B2 50 43 28 4A 29 AB C3 28 C8 28 48 43 24 |:M.PC(J)..(.(HC$|
000013B0: 28 4A AB 31 29 2C 50 43 28 4A 29 AB 32 AB 50 43 |(J.1),PC(J).2.PC|
000013C0: 28 4A AB 31 29 29 29 AB 50 43 28 4A AB 31 29 00 |(J.1))).PC(J.1).|
000013D0: F9 1B 40 03 98 34 2C C8 28 53 24 2C 4D 29 AA C8 |..@..4,.(S$,M)..|
000013E0: 28 48 43 24 28 4A 29 2C 50 43 28 4A AA 31 29 AB |(HC$(J),PC(J.1).|
000013F0: 32 AB 50 43 28 4A 29 29 3B 00 17 1C 42 03 82 4A |2.PC(J));...B..J|
00001400: 3A 98 34 2C 42 31 24 3B 3A 8D 38 33 38 3A 50 47 |:.4,B1$;:.838:PG|
00001410: B2 50 47 AA 33 3A 8E 00 32 1C 44 03 8F 2D 2D 2D |.PG.3:..2.D..---|
00001420: 2D 50 52 49 4E 54 20 44 41 53 48 45 44 20 4C 49 |-PRINT DASHED LI|
00001430: 4E 45 00 53 1C 46 03 81 4A B2 31 A4 50 57 3A 98 |NE.S.F..J.1.PW:.|
00001440: 34 2C 22 2D 22 3B 3A 82 4A 3A 98 34 2C 42 31 24 |4,"-";:.J:.4,B1$|
00001450: 3B 3A 8E 00 6C 1C 48 03 8F 2D 2D 2D 2D 50 52 49 |;:..l.H..----PRI|
00001460: 4E 54 20 46 49 4C 45 20 44 41 54 41 00 AE 1C 4A |NT FILE DATA...J|
00001470: 03 46 31 B2 C5 28 4D 4C 24 28 31 2C 31 29 29 3A |.F1..(ML$(1,1)):|
00001480: 46 32 B2 C5 28 4D 4C 24 28 31 2C 32 29 29 3A 46 |F2..(ML$(1,2)):F|
00001490: 33 B2 C5 28 4D 4C 24 28 31 2C 33 29 29 3A 43 57 |3..(ML$(1,3)):CW|
000014A0: B2 50 43 28 32 29 AB 32 AB 50 43 28 31 29 00 BF |.PC(2).2.PC(1)..|
000014B0: 1C 4C 03 8B 50 43 28 31 29 B1 31 A7 38 35 30 00 |.L..PC(1).1.850.|
000014C0: 00 1D 4E 03 98 34 2C C8 28 52 45 43 24 28 4B 25 |..N..4,.(REC$(K%|
000014D0: 28 49 29 2C 46 31 29 AA 42 24 AA 52 45 43 24 28 |(I),F1).B$.REC$(|
000014E0: 4B 25 28 49 29 2C 46 32 29 AA 42 24 AA 52 45 43 |K%(I),F2).B$.REC|
000014F0: 24 28 4B 25 28 49 29 2C 46 33 29 2C 43 57 29 3B |$(K%(I),F3),CW);|
00001500: 00 09 1D 50 03 89 38 35 34 00 1F 1D 52 03 98 34 |...P..854...R..4|
00001510: 2C C8 28 53 24 2C 50 43 28 31 29 AB 31 29 3B 00 |,.(S$,PC(1).1);.|
00001520: 60 1D 54 03 98 34 2C C8 28 52 45 43 24 28 4B 25 |`.T..4,.(REC$(K%|
00001530: 28 49 29 2C 46 31 29 AA 42 24 AA 52 45 43 24 28 |(I),F1).B$.REC$(|
00001540: 4B 25 28 49 29 2C 46 32 29 AA 42 24 AA 52 45 43 |K%(I),F2).B$.REC|
00001550: 24 28 4B 25 28 49 29 2C 46 33 29 2C 43 57 29 3B |$(K%(I),F3),CW);|
00001560: 00 7F 1D 56 03 81 4A B2 32 A4 4E 43 3A 43 57 B2 |...V..J.2.NC:CW.|
00001570: 50 43 28 4A 29 AB 32 AB 50 43 28 4A AB 31 29 00 |PC(J).2.PC(J.1).|
00001580: B6 1D 58 03 46 31 B2 C5 28 4D 4C 24 28 4A AB 31 |..X.F1..(ML$(J.1|
00001590: 2C 31 29 29 3A 46 32 B2 C5 28 4D 4C 24 28 4A AB |,1)):F2..(ML$(J.|
000015A0: 31 2C 32 29 29 3A 46 33 B2 C5 28 4D 4C 24 28 4A |1,2)):F3..(ML$(J|
000015B0: AB 31 2C 33 29 29 00 F8 1D 5A 03 4D B2 C3 28 C8 |.1,3))...Z.M..(.|
000015C0: 28 52 45 43 24 28 4B 25 28 49 29 2C 46 31 29 AA |(REC$(K%(I),F1).|
000015D0: 42 24 AA 52 45 43 24 28 4B 25 28 49 29 2C 46 32 |B$.REC$(K%(I),F2|
000015E0: 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 49 29 2C |).B$.REC$(K%(I),|
000015F0: 46 33 29 2C 43 57 29 29 00 21 1E 5C 03 4D B2 50 |F3),CW)).!.\.M.P|
00001600: 43 28 4A 29 AB 4D AB 50 43 28 4A AB 31 29 3A 43 |C(J).M.PC(J.1):C|
00001610: 57 B2 50 43 28 4A AA 31 29 AB 32 AB 50 43 28 4A |W.PC(J.1).2.PC(J|
00001620: 29 00 31 1E 5E 03 98 34 2C C8 28 53 24 2C 4D 29 |).1.^..4,.(S$,M)|
00001630: 3B 00 62 1E 60 03 46 31 B2 C5 28 4D 4C 24 28 4A |;.b.`.F1..(ML$(J|
00001640: 2C 31 29 29 3A 46 32 B2 C5 28 4D 4C 24 28 4A 2C |,1)):F2..(ML$(J,|
00001650: 32 29 29 3A 46 33 B2 C5 28 4D 4C 24 28 4A 2C 33 |2)):F3..(ML$(J,3|
00001660: 29 29 00 A3 1E 62 03 98 34 2C C8 28 52 45 43 24 |))...b..4,.(REC$|
00001670: 28 4B 25 28 49 29 2C 46 31 29 AA 42 24 AA 52 45 |(K%(I),F1).B$.RE|
00001680: 43 24 28 4B 25 28 49 29 2C 46 32 29 AA 42 24 AA |C$(K%(I),F2).B$.|
00001690: 52 45 43 24 28 4B 25 28 49 29 2C 46 33 29 2C 43 |REC$(K%(I),F3),C|
000016A0: 57 29 3B 00 BA 1E 64 03 82 4A 3A 98 34 2C 42 31 |W);...d..J:.4,B1|
000016B0: 24 3B 3A 50 47 B2 50 47 AA 31 00 E1 1E 66 03 8B |$;:PG.PG.1...f..|
000016C0: 50 47 B2 36 30 A7 81 4A B2 31 A4 36 3A 98 34 2C |PG.60..J.1.6:.4,|
000016D0: 42 31 24 3B 3A 82 4A 3A 50 47 B2 30 3A 8D 38 32 |B1$;:.J:PG.0:.82|
000016E0: 34 00 E7 1E 68 03 8E 00 01 1F 6A 03 8F 2D 2D 2D |4...h.....j..---|
000016F0: 2D 44 49 53 4B 20 45 52 52 4F 52 20 43 48 45 43 |-DISK ERROR CHEC|
00001700: 4B 00 1F 1F 6C 03 84 31 35 2C 45 4E 2C 45 4D 24 |K...l..15,EN,EM$|
00001710: 2C 45 54 2C 45 53 3A 8B 45 4E B3 32 30 A7 8E 00 |,ET,ES:.EN.20...|
00001720: 4A 1F 6E 03 99 22 11 20 12 44 49 53 4B 20 45 52 |J.n..". .DISK ER|
00001730: 52 4F 52 92 22 45 4E 22 9D 2C 20 22 45 4D 24 22 |ROR."EN"., "EM$"|
00001740: 2C 22 45 54 22 9D 2C 22 45 53 00 75 1F 70 03 99 |,"ET".,"ES.u.p..|
00001750: 22 11 20 50 52 45 53 53 20 12 41 4E 59 20 4B 45 |". PRESS .ANY KE|
00001760: 59 92 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |Y. TO RETURN TO |
00001770: 4D 45 4E 55 22 00 88 1F 72 03 A1 41 24 3A 8B 41 |MENU"...r..A$:.A|
00001780: 24 B2 22 22 A7 38 38 32 00 98 1F 74 03 A0 35 3A |$."".882...t..5:|
00001790: A0 31 35 3A 89 36 31 34 00 00 00 |.15:.614... |
..@....-DATAFILE 2.6 SUBPROGRAM DFREPORT
BY MIKE KONSHAK (C)1983......-FOR 1525,
MPS801, GEMINI10X, OKIDATA92A EPSONRX80
AND OTHERS......4,4:CR$.G(13):B$.G(32):
B1$.G(10):.PW.0.PW.80......614.X....----
LOAD SUBPROGRAMS......"... LOADING
MAIN PROGRAM"......"DATAFILE",8.=....".
.. LOADING MAILING LABEL SUBPROGRAM".M.
..."DFMAIL",8.C....----QUIT ROUTINE.....
."...QUITING NOW WILL ERASE CURRENT DATA
".J....".ARE YOU SURE YOU WANT TO QUIT?"
:.".. .Y. OR .N. ?......A$:.A$."" .524..
....A$."N".614......A$."Y".532......524.
'...."...SUBPROGRAM TERMINATED".T...."..
DATAFILE. BY MIKE KONSHAK (C)1983":..R..
..----SEARCH ROUTINES MENU......". .
PRINT OPTIONS MENU ".C....
". .A.LL RECORDS IN FILE......". .
S.ELECT INDIVIDUAL RECORD... ..". .F.
IND RECORDS WITH COMMON FIELDS.5."..".
.E.XIT TO MAIN MENU.F.$..".POSITION PA
PER IN PRINTER AT TOP OF PAGE"...&.."PRI
NTER MAY STOP DURING PRINTING IF THE".A.
(.."COMPUTER NEEDS TO REALLOCATE MEMORY.
"...*..". . PRESS THE APPROPRIATE K
EY "...,..C$:.C$."" .556......C$."
A".606.&.0..C$."S".570.6.2..C$."F".580.F
.4..C$."E".614.O.6..556.J.8..----SELECT
ONE RECORD...:.."..PRINT WHICH RECORD";I
$:I.E(I$).F.<..I.X.."NO SUCH RECORD EXIS
TS, TRY AGAIN...":.570...>..K.2..810:.82
4:.842:.4,B1$;:.538...@..798:.4,B1$;:.53
8...B..----FIND RECORD (SEARCH).R.D.."..
. FIND RECORDS WITH COMMON ITEMS
.".T.F.. N.1.F:." .";N;". ";F$(N):.N...H
..".WHICH FIELD IS TO BE SEARCHED";SF...
J..SF.0.SF.F.."...":.584...L.."ENTER .CO
MMON ITEM. ":."(THE ENTIRE STRING IS NOT
REQUIRED)"...N..".";F$(SF);". ";:.T$.(.
P..K.2..810:.824.3.R..I.1.X.S.T..".SEARC
HING RECORD";I;"..".~.V..T$.H(REC$(K%(I)
,SF),C(T$))..K.798,842...X..I...Z..4,B1$
;:.538...\..----PRINT ALL RECORDS...^.."
.. PRINTING HEADING":.K.2..810:.824...`.
.I.1.X:.". PRINTING RECORD #";I:.K.798,8
42:.I...B..4,B1$;:.538.:.D..----PRINT RE
CORDS MENU.K.F..". . REPORT PRINT
OUT MENU "...H..". .L.IST
RECORDS UNFORMATTED"...J..". .P.RE-
DEFINED FORMAT OR"...L..". .D.EFINE
NEW FORMAT"...N..".. .E.XIT TO MAI
N PROGRAM OR".+.P..". .M.AILING LAB
EL PROGRAM".H.R..". .Q.UIT PROGRAM"
.Z.T..".. . PRESS THE APPROPRIATE K
EY "...V..C$:.C$."" .630...X..C$."
L".K.1:.538...Z..C$."P".K.2:.766.O.|..C$
."E"..4: 4:.510...~..C$."M"..4: 4:.514..
....C$."D".K.2:.646......C$."Q"..4: 4:.5
20......630.L...."...REPORT SIZE. UP TO
136 CHARACTER WIDE.".{....".PRINTER MUST
BE INITIALIZED FOR WIDTHS"......"GREATE
R THAN 80 CHARACTERS. CHECK YOUR".X...."
PRINTER MANUAL TO HOW TO PRINT 136 CHRS"
......".NUMBER OF CHARACTERS?":."? ...
";PW:.".";PW......PW.136.654.K...."...TI
TLE FORMAT. UP TO 4 TITLE LINES OF".V...
."INFORMATION AT THE TOP OF THE FORM."..
....".NUMBER OF LINES?":."? ...";NL:."
.";NL:.NL.4.662......J.1.NL:."TITLE #";J
:."? > ...";TT$(J)......C(TT$(J)).37.."
.";......".";TT$(J):.TT$(J)."".TT$(J).">
". ....J.I. .."..COLUMN FORMAT. UP TO 8
COLUMNS WITH 2":."SPACES BETWEEN COLUMNS
"......".NUMBER OF COLUMNS?":."? ...";
NC:.".";NC:.NC.8.674......J.1.NC:."POSIT
ION OF COLUMN #";J:."? ...";PC(J).....
.".";PC(J):.J......"..HEADING FORMAT. CO
LUMN HEADINGS CANNOT".>...."EXCEED WIDTH
OF COLUMNS:.".B....J.1.NC:."COLUMN";J;"
HEADING";.|....J.NC..80.PC(J);:.690....
..PC(J.1).2.PC(J);......" CHARACTERS WID
E"......"? > ...";HC$(J):.".";HC$(J):.H
C$(J)."".HC$(J).">"......J......".CHOOSE
WHICH FIELDS GO UNDER THE COLUMNS".U...
."ENTER .0. IF ADDITIONAL FIELDS ARE":."
NOT DESIRED.".U....N.1.F:.".";N;". ";F$(
N):.N......J.1.NC:.".....";.25)"COLUMN";
J;"..".J....L.1.3:..25)".FIELD";L;" 0 ..
";ML$(J,L)...B...32);".";:.ML$(J,L)...D.
.L...F..J.$.H.."...DO YOU WISH TO REVIEW
YOUR FORMAT AND/OR".O.J.."MAKE CORRECTI
ONS? PRESS .Y. OR .N.".B.L..A$:.A$."".7
16.R.N..A$."Y".646...P..A$."N".726...R..
716...T..----SAVE REPORT FORMAT.U.V..".
.SAVE FORMAT.? .Y. OR .N."...
X..A$:.A$."".728...Z..A$."N".538......A$
."Y".736......728.4....".SAVE UNDER WHAT
FILE NAME?".X....". ";NF$:.".";NF$:.NF
$."".614.|....15,8,15:.15,"S0:RP] ".NF$:
.876. ....5,8,5,"0:RP] ".NF$.",S,W":.876
......5,PW;CR$;NL;CR$;NC:.876.I....J.1.N
L......5,TT$(J):.876......J......I.1.NC.
.....5,PC(I);CR$;HC$(I):.876......N.1.3.
,....5,ML$(I,N):.876.6....N:.I.Q....5,E$
:.876: 5: 15:.538.M....----LOAD REPORT F
ORMAT......"..LOAD FORMAT FROM WHAT FILE
?"......". ";NF$:.".";NF$:.NF$."".614..
....15,8,15:.5,8,5,"0:RP] ".NF$.",S,R":.
876......5,PW,NL,NC:.876......J.1.NL....
..5,TT$(J):.876......J.*....I.1.NC.C....
5,PC(I),HC$(I):.876.N....N.1.3.C....5,ML
$(I,N):.876.M....N:.I.....S.ST:.S..0.794
......5,E$..... 5: 15:.712......----PRIN
T NONFORMATTED LISTING......4,"[ RECORD
#";I;" ]";:.J.1.62:.4,"-";:.J:.4,B1$;.
.. ..N.1.F.,."..4,F$(N);:.J.1.20.C(F$(N)
):.4,".";:.J.A.$..4,REC$(K%(I),N).R.&..N
:.4,B1$;:..H.(..----PRINT REPORT...*.PG.
0:S$."":.J.1.PW:S$.S$.B$:.J...,..J.1.NL:
.TT$(J)..">"..818......J:..H.0..----CENT
ER TITLE...2.B..((PW.C(TT$(J))).2)...4..
4,H(S$,B).TT$(J);B1$;:PG.PG.1:..".6..---
-POSITION HEADINGS.W.8..838:PC(NC.1).PW.
3:CW.PC(2).2.PC(1):.PC(1).1.828.Q.:..4,H
(HC$(1),CW);:.830...<..4,H(S$,PC(1).1).H
(HC$(1),CW);.O.>..J.2.NC:M.PC(J).C(H(HC$
(J.1),PC(J).2.PC(J.1))).PC(J.1)...@..4,H
(S$,M).H(HC$(J),PC(J.1).2.PC(J));...B..J
:.4,B1$;:.838:PG.PG.3:..2.D..----PRINT D
ASHED LINE.S.F..J.1.PW:.4,"-";:.J:.4,B1$
;:..L.H..----PRINT FILE DATA...J.F1.E(ML
$(1,1)):F2.E(ML$(1,2)):F3.E(ML$(1,3)):CW
.PC(2).2.PC(1)...L..PC(1).1.850...N..4,H
(REC$(K%(I),F1).B$.REC$(K%(I),F2).B$.REC
$(K%(I),F3),CW);...P..854...R..4,H(S$,PC
(1).1);.`.T..4,H(REC$(K%(I),F1).B$.REC$(
K%(I),F2).B$.REC$(K%(I),F3),CW);..V..J.
2.NC:CW.PC(J).2.PC(J.1)...X.F1.E(ML$(J.1
,1)):F2.E(ML$(J.1,2)):F3.E(ML$(J.1,3))..
.Z.M.C(H(REC$(K%(I),F1).B$.REC$(K%(I),F2
).B$.REC$(K%(I),F3),CW)).!.\.M.PC(J).M.P
C(J.1):CW.PC(J.1).2.PC(J).1.^..4,H(S$,M)
;.B.`.F1.E(ML$(J,1)):F2.E(ML$(J,2)):F3.E
(ML$(J,3))...B..4,H(REC$(K%(I),F1).B$.RE
C$(K%(I),F2).B$.REC$(K%(I),F3),CW);...D.
.J:.4,B1$;:PG.PG.1...F..PG.60..J.1.6:.4,
B1$;:.J:PG.0:.824...H.....J..----DISK ER
ROR CHECK...L..15,EN,EM$,ET,ES:.EN.20...
J.N..". .DISK ERROR."EN"., "EM$","ET".,"
ES.U.P..". PRESS .ANY KEY. TO RETURN TO
MENU"...R..A$:.A$."".882...T. 5: 15:.614
...
> CLICK IMAGE PREVIEW FOR FULL MODAL