DFREPORT
FILE INFORMATION
FILENAME(S): DFREPORT
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
e34fdef3c34cfd4480b107d77a46edf8ad5a0bc41b93b34cb93765f7dd987694
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 UTILITY | DFREPORT | PRG | Radd Maxx | 30 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 F4 01 8F 20 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 00 3F 08 F6 01 8F 20 46 |DFREPORT.?.... F|
00000030: 4F 52 20 31 35 32 35 20 50 52 49 4E 54 45 52 00 |OR 1525 PRINTER.|
00000040: 71 08 F8 01 9F 34 2C 34 3A 43 52 24 B2 C7 28 31 |q....4,4:CR$..(1|
00000050: 33 29 3A 42 24 B2 C7 28 33 32 29 3A 42 31 24 B2 |3):B$..(32):B1$.|
00000060: C7 28 31 30 29 3A 8B 50 57 B2 30 A7 50 57 B2 38 |.(10):.PW.0.PW.8|
00000070: 30 00 7A 08 FA 01 89 36 31 34 00 93 08 FC 01 8F |0.z....614......|
00000080: 20 2D 20 4C 4F 41 44 20 53 55 42 50 52 4F 47 52 | - LOAD SUBPROGR|
00000090: 41 4D 53 00 B9 08 FE 01 99 22 93 11 11 20 20 20 |AMS......"... |
000000A0: 20 20 20 20 4C 4F 41 44 49 4E 47 20 4D 41 49 4E | LOADING MAIN|
000000B0: 20 50 52 4F 47 52 41 4D 22 00 CB 08 00 02 93 22 | PROGRAM"......"|
000000C0: 44 41 54 41 46 49 4C 45 22 2C 38 00 F5 08 02 02 |DATAFILE",8.....|
000000D0: 99 22 93 11 11 20 20 4C 4F 41 44 49 4E 47 20 4D |."... LOADING M|
000000E0: 41 49 4C 49 4E 47 20 4C 41 42 45 4C 20 53 55 42 |AILING LABEL SUB|
000000F0: 50 52 4F 47 22 00 05 09 04 02 93 22 44 46 4D 41 |PROG"......"DFMA|
00000100: 49 4C 22 2C 38 00 1A 09 06 02 8F 20 2D 2D 51 55 |IL",8...... --QU|
00000110: 49 54 20 52 4F 55 54 49 4E 45 00 4A 09 08 02 99 |IT ROUTINE.J....|
00000120: 22 93 11 11 51 55 49 54 54 49 4E 47 20 4E 4F 57 |"...QUITTING NOW|
00000130: 20 57 49 4C 4C 20 45 52 41 53 45 20 43 55 52 52 | WILL ERASE CURR|
00000140: 45 4E 54 20 44 41 54 41 2E 22 00 84 09 0A 02 99 |ENT DATA."......|
00000150: 22 11 41 52 45 20 59 4F 55 20 53 55 52 45 20 59 |".ARE YOU SURE Y|
00000160: 4F 55 20 57 41 4E 54 20 54 4F 20 51 55 49 54 3F |OU WANT TO QUIT?|
00000170: 22 3A 99 22 11 11 20 12 59 92 20 4F 52 20 12 4E |":.".. .Y. OR .N|
00000180: 92 20 3F 22 00 97 09 0C 02 A1 41 24 3A 8B 41 24 |. ?"......A$:.A$|
00000190: B2 22 22 A7 35 32 34 00 A7 09 0E 02 8B 41 24 B2 |."".524......A$.|
000001A0: 22 59 22 A7 35 33 32 00 B7 09 10 02 8B 41 24 B2 |"Y".532......A$.|
000001B0: 22 4E 22 A7 36 31 34 00 C0 09 12 02 89 35 32 34 |"N".614......524|
000001C0: 00 E1 09 14 02 99 22 93 11 11 53 55 42 50 52 4F |......"...SUBPRO|
000001D0: 47 52 41 4D 20 54 45 52 4D 49 4E 41 54 45 44 2E |GRAM TERMINATED.|
000001E0: 22 00 F5 09 16 02 99 22 11 12 44 41 54 41 46 49 |"......"..DATAFI|
000001F0: 4C 45 22 3A 80 00 13 0A 18 02 8F 20 2D 2D 20 53 |LE":....... -- S|
00000200: 45 41 52 43 48 20 52 4F 55 54 49 4E 45 53 20 4D |EARCH ROUTINES M|
00000210: 45 4E 55 00 43 0A 1A 02 99 22 93 20 12 20 20 20 |ENU.C....". . |
00000220: 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 4F 50 | PRINT OP|
00000230: 54 49 4F 4E 53 20 4D 45 4E 55 20 20 20 20 20 20 |TIONS MENU |
00000240: 20 20 22 00 65 0A 1C 02 99 22 11 20 20 20 20 12 | ".e....". .|
00000250: 41 92 4C 4C 20 52 45 43 4F 52 44 53 20 49 4E 20 |A.LL RECORDS IN |
00000260: 46 49 4C 45 22 00 8D 0A 1E 02 99 22 11 20 20 20 |FILE"......". |
00000270: 20 12 53 92 45 4C 45 43 54 20 49 4E 44 49 56 49 | .S.ELECT INDIVI|
00000280: 44 55 41 4C 20 52 45 43 4F 52 44 53 22 00 BB 0A |DUAL RECORDS"...|
00000290: 20 02 99 22 11 20 20 20 20 12 46 92 49 4E 44 20 | ..". .F.IND |
000002A0: 52 45 43 4F 52 44 53 20 57 49 54 48 20 43 4F 4D |RECORDS WITH COM|
000002B0: 4D 4F 4E 20 46 49 45 4C 44 53 22 00 DB 0A 22 02 |MON FIELDS"...".|
000002C0: 99 22 11 20 20 20 20 12 45 92 58 49 54 20 54 4F |.". .E.XIT TO|
000002D0: 20 4D 41 49 4E 20 4D 45 4E 55 22 00 0D 0B 24 02 | MAIN MENU"...$.|
000002E0: 99 22 11 50 4F 53 49 54 49 4F 4E 20 50 41 50 45 |.".POSITION PAPE|
000002F0: 52 20 49 4E 20 50 52 49 4E 54 45 52 20 41 54 20 |R IN PRINTER AT |
00000300: 54 4F 50 20 4F 46 20 50 41 47 45 2E 22 00 3C 0B |TOP OF PAGE.".<.|
00000310: 26 02 99 22 50 52 49 4E 54 45 52 20 4D 41 59 20 |&.."PRINTER MAY |
00000320: 53 54 4F 50 20 44 55 52 49 4E 47 20 50 52 49 4E |STOP DURING PRIN|
00000330: 54 49 4E 47 20 49 46 20 54 48 45 22 00 66 0B 28 |TING IF THE".f.(|
00000340: 02 99 22 43 4F 4D 50 55 54 45 52 20 4E 45 45 44 |.."COMPUTER NEED|
00000350: 53 20 54 4F 20 52 45 4C 4F 43 41 54 45 20 4D 45 |S TO RELOCATE ME|
00000360: 4D 4F 52 59 2E 22 00 96 0B 2A 02 99 22 11 20 12 |MORY."...*..". .|
00000370: 20 20 20 20 20 20 50 52 45 53 53 20 54 48 45 20 | PRESS THE |
00000380: 41 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 20 |APPROPRIATE KEY |
00000390: 20 20 20 20 20 22 00 A9 0B 2C 02 A1 43 24 3A 8B | "...,..C$:.|
000003A0: 43 24 B2 22 22 A7 35 35 36 00 B9 0B 2E 02 8B 43 |C$."".556......C|
000003B0: 24 B2 22 41 22 A7 36 30 36 00 C9 0B 30 02 8B 43 |$."A".606...0..C|
000003C0: 24 B2 22 53 22 A7 35 37 30 00 D9 0B 32 02 8B 43 |$."S".570...2..C|
000003D0: 24 B2 22 46 22 A7 35 38 30 00 E9 0B 34 02 8B 43 |$."F".580...4..C|
000003E0: 24 B2 22 45 22 A7 36 31 34 00 F2 0B 36 02 89 35 |$."E".614...6..5|
000003F0: 35 36 00 0D 0C 38 02 8F 20 2D 2D 20 53 45 4C 45 |56...8.. -- SELE|
00000400: 43 54 20 4F 4E 45 20 52 45 43 4F 52 44 00 34 0C |CT ONE RECORD.4.|
00000410: 3A 02 85 22 93 11 50 52 49 4E 54 20 57 48 49 43 |:.."..PRINT WHIC|
00000420: 48 20 52 45 43 4F 52 44 22 3B 49 24 3A 49 B2 C5 |H RECORD";I$:I..|
00000430: 28 49 24 29 00 69 0C 3C 02 8B 49 B1 58 A7 99 22 |(I$).i.<..I.X.."|
00000440: 4E 4F 20 53 55 43 48 20 52 45 43 4F 52 44 20 45 |NO SUCH RECORD E|
00000450: 58 49 53 54 53 2C 20 54 52 59 20 41 47 41 49 4E |XISTS, TRY AGAIN|
00000460: 91 91 91 22 3A 89 35 37 30 00 8E 0C 3E 02 8B 4B |...":.570...>..K|
00000470: B2 32 A7 8D 38 31 30 3A 8D 38 32 34 3A 8D 38 34 |.2..810:.824:.84|
00000480: 32 3A 98 34 2C 42 31 24 3B 3A 89 35 33 38 00 A4 |2:.4,B1$;:.538..|
00000490: 0C 40 02 8D 37 39 38 3A 98 34 2C 42 31 24 3B 3A |.@..798:.4,B1$;:|
000004A0: 89 35 33 38 00 C2 0C 42 02 8F 20 2D 2D 20 46 49 |.538...B.. -- FI|
000004B0: 4E 44 20 52 45 43 4F 52 44 20 28 53 45 41 52 43 |ND RECORD (SEARC|
000004C0: 48 29 00 F5 0C 44 02 99 22 93 11 20 12 20 20 20 |H)...D..".. . |
000004D0: 20 46 49 4E 44 20 52 45 43 4F 52 44 53 20 57 49 | FIND RECORDS WI|
000004E0: 54 48 20 43 4F 4D 4D 4F 4E 20 49 54 45 4D 53 20 |TH COMMON ITEMS |
000004F0: 20 20 20 11 22 00 15 0D 46 02 81 4E B2 31 A4 46 | ."...F..N.1.F|
00000500: 3A 99 22 20 12 22 3B 4E 3B 22 92 22 3B 46 24 28 |:." .";N;".";F$(|
00000510: 4E 29 3A 82 4E 00 3E 0D 48 02 85 22 11 57 48 49 |N):.N.>.H..".WHI|
00000520: 43 48 20 46 49 45 4C 44 20 49 53 20 54 4F 20 42 |CH FIELD IS TO B|
00000530: 45 20 53 45 41 52 43 48 45 44 22 3B 53 46 00 59 |E SEARCHED";SF.Y|
00000540: 0D 4A 02 8B 53 46 B3 30 B0 53 46 B1 46 A7 99 22 |.J..SF.0.SF.F.."|
00000550: 91 91 91 22 3A 89 35 38 34 00 9E 0D 4C 02 99 22 |...":.584...L.."|
00000560: 45 4E 54 45 52 20 12 43 4F 4D 4D 4F 4E 20 49 54 |ENTER .COMMON IT|
00000570: 45 4D 92 20 22 3A 99 22 28 54 48 45 20 45 4E 54 |EM. ":."(THE ENT|
00000580: 49 52 45 20 53 54 52 49 4E 47 20 49 53 20 4E 4F |IRE STRING IS NO|
00000590: 54 20 52 45 51 55 49 52 45 44 2E 2E 29 22 00 B8 |T REQUIRED..)"..|
000005A0: 0D 4E 02 99 22 12 22 3B 46 24 28 53 46 29 3B 22 |.N..".";F$(SF);"|
000005B0: 92 20 22 3B 3A 85 54 24 00 CB 0D 50 02 8B 4B B2 |. ";:.T$...P..K.|
000005C0: 32 A7 8D 38 31 30 3A 8D 38 32 34 00 D6 0D 52 02 |2..810:.824...R.|
000005D0: 81 49 B2 31 A4 58 00 F6 0D 54 02 99 22 11 53 45 |.I.1.X...T..".SE|
000005E0: 41 52 43 48 49 4E 47 20 52 45 43 4F 52 44 22 3B |ARCHING RECORD";|
000005F0: 49 3B 22 91 91 22 00 21 0E 56 02 8B 54 24 B2 C8 |I;"..".!.V..T$..|
00000600: 28 52 45 43 24 28 4B 25 28 49 29 2C 53 46 29 2C |(REC$(K%(I),SF),|
00000610: C3 28 54 24 29 29 A7 91 4B 8D 37 39 38 2C 38 34 |.(T$))..K.798,84|
00000620: 32 00 28 0E 58 02 82 49 00 39 0E 5A 02 98 34 2C |2.(.X..I.9.Z..4,|
00000630: 42 31 24 3B 3A 89 35 33 38 00 54 0E 5C 02 8F 20 |B1$;:.538.T.\.. |
00000640: 2D 2D 20 50 52 49 4E 54 20 41 4C 4C 20 52 45 43 |-- PRINT ALL REC|
00000650: 4F 52 44 53 00 7E 0E 5E 02 99 22 93 11 20 50 52 |ORDS.~.^..".. PR|
00000660: 49 4E 54 49 4E 47 20 48 45 41 44 49 4E 47 22 3A |INTING HEADING":|
00000670: 8B 4B B2 32 A7 8D 38 31 30 3A 8D 38 32 34 00 B0 |.K.2..810:.824..|
00000680: 0E 60 02 81 49 B2 31 A4 58 3A 99 22 91 20 50 52 |.`..I.1.X:.". PR|
00000690: 49 4E 54 49 4E 47 20 52 45 43 4F 52 44 20 23 22 |INTING RECORD #"|
000006A0: 3B 49 3A 91 4B 8D 37 39 38 2C 38 34 32 3A 82 49 |;I:.K.798,842:.I|
000006B0: 00 C1 0E 62 02 98 34 2C 42 31 24 3B 3A 89 35 33 |...b..4,B1$;:.53|
000006C0: 38 00 DD 0E 64 02 8F 20 2D 2D 20 50 52 49 4E 54 |8...d.. -- PRINT|
000006D0: 20 52 45 43 4F 52 44 53 20 4D 45 4E 55 00 0E 0F | RECORDS MENU...|
000006E0: 66 02 99 22 93 20 12 20 20 20 20 20 20 20 20 52 |f..". . R|
000006F0: 45 50 4F 52 54 20 50 52 49 4E 54 4F 55 54 20 4D |EPORT PRINTOUT M|
00000700: 45 4E 55 20 20 20 20 20 20 20 20 20 20 22 00 37 |ENU ".7|
00000710: 0F 68 02 99 22 11 20 20 20 20 20 20 12 4C 92 49 |.h..". .L.I|
00000720: 53 54 20 52 45 43 4F 52 44 53 20 55 4E 46 4F 52 |ST RECORDS UNFOR|
00000730: 4D 41 54 54 45 44 22 00 5D 0F 6A 02 99 22 11 20 |MATTED".].j..". |
00000740: 20 20 20 20 20 12 50 92 52 45 2D 44 45 46 49 4E | .P.RE-DEFIN|
00000750: 45 44 20 46 4F 52 4D 41 54 20 4F 52 22 00 7F 0F |ED FORMAT OR"...|
00000760: 6C 02 99 22 11 20 20 20 20 20 20 12 44 92 45 46 |l..". .D.EF|
00000770: 49 4E 45 20 4E 45 57 20 46 4F 52 4D 41 54 22 00 |INE NEW FORMAT".|
00000780: A1 0F 6E 02 99 22 11 20 20 20 20 20 20 12 45 92 |..n..". .E.|
00000790: 58 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |XIT TO MAIN MENU|
000007A0: 22 00 C7 0F 70 02 99 22 11 20 20 20 20 20 20 12 |"...p..". .|
000007B0: 4D 92 41 49 4C 49 4E 47 20 4C 41 42 45 4C 20 50 |M.AILING LABEL P|
000007C0: 52 4F 47 52 41 4D 22 00 E4 0F 72 02 99 22 11 20 |ROGRAM"...r..". |
000007D0: 20 20 20 20 20 12 51 92 55 49 54 20 50 52 4F 47 | .Q.UIT PROG|
000007E0: 52 41 4D 22 00 16 10 74 02 99 22 11 11 20 12 20 |RAM"...t..".. . |
000007F0: 20 20 20 20 20 50 52 45 53 53 20 54 48 45 20 41 | PRESS THE A|
00000800: 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 20 20 |PPROPRIATE KEY |
00000810: 20 20 20 20 20 22 00 29 10 76 02 A1 43 24 3A 8B | ".).v..C$:.|
00000820: 43 24 B2 22 22 A7 36 33 30 00 3E 10 78 02 8B 43 |C$."".630.>.x..C|
00000830: 24 B2 22 4C 22 A7 4B B2 31 3A 89 35 33 38 00 53 |$."L".K.1:.538.S|
00000840: 10 7A 02 8B 43 24 B2 22 50 22 A7 4B B2 32 3A 89 |.z..C$."P".K.2:.|
00000850: 37 36 36 00 6A 10 7C 02 8B 43 24 B2 22 45 22 A7 |766.j.|..C$."E".|
00000860: 98 34 3A A0 34 3A 89 35 31 30 00 81 10 7E 02 8B |.4:.4:.510...~..|
00000870: 43 24 B2 22 4D 22 A7 98 34 3A A0 34 3A 89 35 31 |C$."M"..4:.4:.51|
00000880: 34 00 96 10 80 02 8B 43 24 B2 22 44 22 A7 4B B2 |4......C$."D".K.|
00000890: 32 3A 89 36 34 36 00 AD 10 82 02 8B 43 24 B2 22 |2:.646......C$."|
000008A0: 51 22 A7 98 34 3A A0 34 3A 89 35 32 30 00 B6 10 |Q"..4:.4:.520...|
000008B0: 84 02 89 36 33 30 00 E7 10 86 02 99 22 93 11 12 |...630......"...|
000008C0: 52 45 50 4F 52 54 20 53 49 5A 45 92 20 55 50 20 |REPORT SIZE. UP |
000008D0: 54 4F 20 31 33 36 20 43 48 41 52 41 43 54 45 52 |TO 136 CHARACTER|
000008E0: 20 57 49 44 45 2E 22 00 16 11 88 02 99 22 11 50 | WIDE."......".P|
000008F0: 52 49 4E 54 45 52 20 4D 55 53 54 20 42 45 20 49 |RINTER MUST BE I|
00000900: 4E 49 54 49 41 4C 49 5A 45 44 20 46 4F 52 20 57 |NITIALIZED FOR W|
00000910: 49 44 54 48 53 22 00 44 11 8A 02 99 22 47 52 45 |IDTHS".D...."GRE|
00000920: 41 54 45 52 20 54 48 41 4E 20 38 30 20 43 48 41 |ATER THAN 80 CHA|
00000930: 52 41 43 54 45 52 53 2E 20 43 48 45 43 4B 20 59 |RACTERS. CHECK Y|
00000940: 4F 55 52 22 00 73 11 8C 02 99 22 50 52 49 4E 54 |OUR".s...."PRINT|
00000950: 45 52 20 4D 41 4E 55 41 4C 20 54 4F 20 48 4F 57 |ER MANUAL TO HOW|
00000960: 20 54 4F 20 50 52 49 4E 54 20 31 33 36 20 43 48 | TO PRINT 136 CH|
00000970: 52 53 22 00 A7 11 8E 02 99 22 11 4E 55 4D 42 45 |RS"......".NUMBE|
00000980: 52 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 3F |R OF CHARACTERS?|
00000990: 22 3A 99 22 3F 20 20 20 9D 9D 9D 22 3B 52 57 3A |":."? ...";RW:|
000009A0: 85 22 91 22 3B 50 57 00 B7 11 90 02 8B 50 57 B1 |.".";PW......PW.|
000009B0: 31 33 36 A7 36 35 34 00 E6 11 92 02 99 22 93 11 |136.654......"..|
000009C0: 12 54 49 54 4C 45 20 46 4F 52 4D 41 54 92 20 55 |.TITLE FORMAT. U|
000009D0: 50 20 54 4F 20 34 20 54 49 54 4C 45 20 4C 49 4E |P TO 4 TITLE LIN|
000009E0: 45 53 20 4F 46 22 00 11 12 94 02 99 22 49 4E 46 |ES OF"......"INF|
000009F0: 4F 52 4D 41 54 49 4F 4E 20 41 54 20 54 48 45 20 |ORMATION AT THE |
00000A00: 54 4F 50 20 4F 46 20 54 48 45 20 46 4F 52 4D 2E |TOP OF THE FORM.|
00000A10: 22 00 4A 12 96 02 99 22 11 4E 55 4D 42 45 52 20 |".J....".NUMBER |
00000A20: 4F 46 20 4C 49 4E 45 53 3F 22 3A 99 22 3F 20 20 |OF LINES?":."? |
00000A30: 20 9D 9D 9D 22 3B 4E 4C 3A 85 22 91 22 3B 4E 4C | ...";NL:.".";NL|
00000A40: 3A 8B 4E 4C B1 34 A7 36 36 32 00 76 12 98 02 81 |:.NL.4.662.v....|
00000A50: 4A B2 31 A4 4E 4C 3A 99 22 54 49 54 4C 45 20 23 |J.1.NL:."TITLE #|
00000A60: 22 3B 4A 3A 99 22 3F 20 3E 20 20 9D 9D 9D 22 3B |";J:."? > ...";|
00000A70: 54 54 24 28 4A 29 00 8E 12 9A 02 8B C3 28 54 54 |TT$(J).......(TT|
00000A80: 24 28 4A 29 29 B1 33 37 A7 99 22 91 22 3B 00 B4 |$(J)).37..".";..|
00000A90: 12 9C 02 85 22 91 22 3B 54 54 24 28 4A 29 3A 8B |....".";TT$(J):.|
00000AA0: 54 54 24 28 4A 29 B2 22 22 A7 54 54 24 28 4A 29 |TT$(J)."".TT$(J)|
00000AB0: B2 22 3E 22 00 BB 12 9E 02 82 4A 00 EA 12 A0 02 |.">"......J.....|
00000AC0: 99 22 93 12 43 4F 4C 55 4D 4E 20 46 4F 52 4D 41 |."..COLUMN FORMA|
00000AD0: 54 92 20 55 50 20 54 4F 20 38 20 43 4F 4C 55 4D |T. UP TO 8 COLUM|
00000AE0: 4E 53 20 57 49 54 48 20 32 22 00 08 13 A1 02 99 |NS WITH 2"......|
00000AF0: 22 53 50 41 43 45 53 20 42 45 54 57 45 45 4E 20 |"SPACES BETWEEN |
00000B00: 43 4F 4C 55 4D 4E 53 22 00 43 13 A2 02 99 22 11 |COLUMNS".C....".|
00000B10: 4E 55 4D 42 45 52 20 4F 46 20 43 4F 4C 55 4D 4E |NUMBER OF COLUMN|
00000B20: 53 3F 22 3A 99 22 3F 20 20 20 9D 9D 9D 22 3B 4E |S?":."? ...";N|
00000B30: 43 3A 85 22 91 22 3B 4E 43 3A 8B 4E 43 B1 38 A7 |C:.".";NC:.NC.8.|
00000B40: 36 37 34 00 7A 13 A4 02 81 4A B2 31 A4 4E 43 3A |674.z....J.1.NC:|
00000B50: 99 22 50 4F 53 49 54 49 4F 4E 20 4F 46 20 43 4F |."POSITION OF CO|
00000B60: 4C 55 4D 4E 20 23 22 3B 4A 3A 99 22 3F 20 20 20 |LUMN #";J:."? |
00000B70: 9D 9D 9D 22 3B 50 43 28 4A 29 00 8C 13 A6 02 85 |...";PC(J)......|
00000B80: 22 91 22 3B 50 43 28 4A 29 3A 82 4A 00 BC 13 A8 |".";PC(J):.J....|
00000B90: 02 99 22 93 12 48 45 41 44 49 4E 47 20 46 4F 52 |.."..HEADING FOR|
00000BA0: 4D 41 54 92 20 43 4F 4C 55 4D 4E 20 48 45 41 44 |MAT. COLUMN HEAD|
00000BB0: 49 4E 47 53 20 43 41 4E 4E 4F 54 22 00 DD 13 AA |INGS CANNOT"....|
00000BC0: 02 99 22 45 58 43 45 45 44 20 57 49 44 54 48 20 |.."EXCEED WIDTH |
00000BD0: 4F 46 20 43 4F 4C 55 4D 4E 53 3A 11 22 00 01 14 |OF COLUMNS:."...|
00000BE0: AC 02 81 4A B2 31 A4 4E 43 3A 99 22 43 4F 4C 55 |...J.1.NC:."COLU|
00000BF0: 4D 4E 22 3B 4A 3B 22 20 48 45 41 44 49 4E 47 22 |MN";J;" HEADING"|
00000C00: 3B 00 1B 14 AE 02 8B 4A B2 4E 43 A7 99 38 30 AB |;......J.NC..80.|
00000C10: 50 43 28 4A 29 3B 3A 89 36 39 30 00 31 14 B0 02 |PC(J);:.690.1...|
00000C20: 99 50 43 28 4A AA 31 29 AB 32 AB 50 43 28 4A 29 |.PC(J.1).2.PC(J)|
00000C30: 3B 00 49 14 B2 02 99 22 20 43 48 41 52 41 43 54 |;.I...." CHARACT|
00000C40: 45 52 53 20 57 49 44 45 22 00 82 14 B4 02 99 22 |ERS WIDE"......"|
00000C50: 3F 20 3E 20 20 9D 9D 9D 22 3B 48 43 24 28 4A 29 |? > ...";HC$(J)|
00000C60: 3A 85 22 91 22 3B 48 43 24 28 4A 29 3A 8B 48 43 |:.".";HC$(J):.HC|
00000C70: 24 28 4A 29 B2 22 22 A7 48 43 24 28 4A 29 B2 22 |$(J)."".HC$(J)."|
00000C80: 3E 22 00 89 14 B6 02 82 4A 00 BA 14 B8 02 99 22 |>"......J......"|
00000C90: 93 43 48 4F 4F 53 45 20 57 48 49 43 48 20 46 49 |.CHOOSE WHICH FI|
00000CA0: 45 4C 44 53 20 47 4F 20 55 4E 44 45 52 20 54 48 |ELDS GO UNDER TH|
00000CB0: 45 20 43 4F 4C 55 4D 4E 53 22 00 F4 14 BA 02 99 |E COLUMNS"......|
00000CC0: 22 45 4E 54 45 52 20 12 30 92 20 49 46 20 41 44 |"ENTER .0. IF AD|
00000CD0: 44 49 54 49 4F 4E 41 4C 20 46 49 45 4C 44 53 20 |DITIONAL FIELDS |
00000CE0: 41 52 45 22 3A 99 22 4E 4F 54 20 44 45 53 49 52 |ARE":."NOT DESIR|
00000CF0: 45 44 2E 22 00 14 15 BC 02 81 4E B2 31 A4 46 3A |ED."......N.1.F:|
00000D00: 99 22 12 22 3B 4E 3B 22 92 20 22 3B 46 24 28 4E |.".";N;". ";F$(N|
00000D10: 29 3A 82 4E 00 3D 15 BE 02 81 4A B2 31 A4 4E 43 |):.N.=....J.1.NC|
00000D20: 3A 99 22 13 11 11 11 11 22 3B A3 32 35 29 22 43 |:.".....";.25)"C|
00000D30: 4F 4C 55 4D 4E 22 3B 4A 3B 22 11 11 22 00 69 15 |OLUMN";J;"..".i.|
00000D40: C0 02 81 4C B2 31 A4 33 3A 99 A3 32 35 29 22 91 |...L.1.3:..25)".|
00000D50: 46 49 45 4C 44 22 3B 4C 3B 22 20 30 20 9D 9D 22 |FIELD";L;" 0 .."|
00000D60: 3B 4D 4C 24 28 4A 2C 4C 29 00 82 15 C2 02 99 A3 |;ML$(J,L).......|
00000D70: 33 32 29 3B 22 91 22 3B 3A 85 4D 4C 24 28 4A 2C |32);".";:.ML$(J,|
00000D80: 4C 29 00 89 15 C4 02 82 4C 00 90 15 C6 02 82 4A |L)......L......J|
00000D90: 00 C3 15 C8 02 99 22 93 11 11 44 4F 20 59 4F 55 |......"...DO YOU|
00000DA0: 20 57 49 53 48 20 54 4F 20 52 45 56 49 45 57 20 | WISH TO REVIEW |
00000DB0: 59 4F 55 52 20 46 4F 52 4D 41 54 20 41 4E 44 2F |YOUR FORMAT AND/|
00000DC0: 4F 52 22 00 EE 15 CA 02 99 22 4D 41 4B 45 20 43 |OR"......"MAKE C|
00000DD0: 4F 52 52 45 43 54 49 4F 4E 53 3F 20 20 50 52 45 |ORRECTIONS? PRE|
00000DE0: 53 53 20 12 59 92 20 4F 52 20 12 4E 92 22 00 01 |SS .Y. OR .N."..|
00000DF0: 16 CC 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 37 31 |....A$:.A$."".71|
00000E00: 36 00 11 16 CE 02 8B 41 24 B2 22 59 22 A7 36 34 |6......A$."Y".64|
00000E10: 36 00 21 16 D0 02 8B 41 24 B2 22 4E 22 A7 37 32 |6.!....A$."N".72|
00000E20: 36 00 2A 16 D2 02 89 37 31 36 00 47 16 D4 02 8F |6.*....716.G....|
00000E30: 20 2D 2D 20 53 41 56 45 20 52 45 50 4F 52 54 20 | -- SAVE REPORT |
00000E40: 50 52 4F 47 52 41 4D 00 75 16 D6 02 99 22 11 20 |PROGRAM.u....". |
00000E50: 12 53 41 56 45 20 46 4F 52 4D 41 54 92 3F 20 20 |.SAVE FORMAT.? |
00000E60: 20 20 20 20 20 20 20 20 20 20 12 59 92 20 4F 52 | .Y. OR|
00000E70: 20 12 4E 92 22 00 88 16 D8 02 A1 41 24 3A 8B 41 | .N."......A$:.A|
00000E80: 24 B2 22 22 A7 37 32 38 00 98 16 DA 02 8B 41 24 |$."".728......A$|
00000E90: B2 22 59 22 A7 37 33 36 00 A8 16 DC 02 8B 41 24 |."Y".736......A$|
00000EA0: B2 22 4E 22 A7 35 33 38 00 B1 16 DE 02 89 37 32 |."N".538......72|
00000EB0: 38 00 D4 16 E0 02 99 22 11 53 41 56 45 20 55 4E |8......".SAVE UN|
00000EC0: 44 45 52 20 57 48 41 54 20 46 49 4C 45 20 4E 41 |DER WHAT FILE NA|
00000ED0: 4D 45 3F 22 00 F8 16 E2 02 99 22 11 20 20 22 3B |ME?"......". ";|
00000EE0: 4E 46 24 3A 85 22 91 22 3B 4E 46 24 3A 8B 4E 46 |NF$:.".";NF$:.NF|
00000EF0: 24 B2 22 22 A7 36 31 34 00 1C 17 E4 02 9F 31 35 |$."".614......15|
00000F00: 2C 38 2C 31 35 3A 98 31 35 2C 22 53 30 3A 52 50 |,8,15:.15,"S0:RP|
00000F10: 5D 20 22 AA 4E 46 24 3A 8D 38 37 36 00 40 17 E6 |] ".NF$:.876.@..|
00000F20: 02 9F 35 2C 38 2C 35 2C 22 30 3A 52 50 5D 20 22 |..5,8,5,"0:RP] "|
00000F30: AA 4E 46 24 AA 22 2C 53 2C 57 22 3A 8D 38 37 36 |.NF$.",S,W":.876|
00000F40: 00 5D 17 E8 02 98 35 2C 50 57 3B 43 52 24 3B 4E |.]....5,PW;CR$;N|
00000F50: 4C 3B 43 52 24 3B 4E 43 3A 8D 38 37 36 00 69 17 |L;CR$;NC:.876.i.|
00000F60: EA 02 81 4A B2 31 A4 4E 4C 00 7C 17 EC 02 98 35 |...J.1.NL.|....5|
00000F70: 2C 54 54 24 28 4A 29 3A 8D 38 37 36 00 83 17 EE |,TT$(J):.876....|
00000F80: 02 82 4A 00 8F 17 F0 02 81 49 B2 31 A4 4E 43 00 |..J......I.1.NC.|
00000F90: AC 17 F2 02 98 35 2C 50 43 28 49 29 3B 43 52 24 |.....5,PC(I);CR$|
00000FA0: 3B 48 43 24 28 49 29 3A 8D 38 37 36 00 B7 17 F4 |;HC$(I):.876....|
00000FB0: 02 81 4E B2 31 A4 33 00 CC 17 F6 02 98 35 2C 4D |..N.1.3......5,M|
00000FC0: 4C 24 28 49 2C 4E 29 3A 8D 38 37 36 00 D6 17 F8 |L$(I,N):.876....|
00000FD0: 02 82 4E 3A 82 49 00 F1 17 FA 02 98 35 2C 45 24 |..N:.I......5,E$|
00000FE0: 3A 8D 38 37 36 3A A0 35 3A A0 31 35 3A 89 35 33 |:.876:.5:.15:.53|
00000FF0: 38 00 0D 18 FC 02 8F 20 2D 2D 20 4C 4F 41 44 20 |8...... -- LOAD |
00001000: 52 45 50 4F 52 54 20 46 4F 52 4D 41 54 00 32 18 |REPORT FORMAT.2.|
00001010: FE 02 99 22 11 11 4C 4F 41 44 20 46 4F 52 4D 41 |..."..LOAD FORMA|
00001020: 54 20 46 52 4F 4D 20 57 48 41 54 20 46 49 4C 45 |T FROM WHAT FILE|
00001030: 3F 22 00 56 18 00 03 99 22 11 20 20 22 3B 4E 46 |?".V....". ";NF|
00001040: 24 3A 85 22 91 22 3B 4E 46 24 3A 8B 4E 46 24 B2 |$:.".";NF$:.NF$.|
00001050: 22 22 A7 36 31 34 00 83 18 02 03 9F 31 35 2C 38 |"".614......15,8|
00001060: 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 52 50 |,15:.5,8,5,"0:RP|
00001070: 5D 20 22 AA 4E 46 24 AA 22 2C 53 2C 52 22 3A 8D |] ".NF$.",S,R":.|
00001080: 38 37 36 00 98 18 04 03 84 35 2C 50 57 2C 4E 4C |876......5,PW,NL|
00001090: 2C 4E 43 3A 8D 38 37 36 00 A4 18 06 03 81 4A B2 |,NC:.876......J.|
000010A0: 31 A4 4E 4C 00 B7 18 08 03 84 35 2C 54 54 24 28 |1.NL......5,TT$(|
000010B0: 4A 29 3A 8D 38 37 36 00 BE 18 0A 03 82 4A 00 CA |J):.876......J..|
000010C0: 18 0C 03 81 49 B2 31 A4 4E 43 00 E3 18 0E 03 84 |....I.1.NC......|
000010D0: 35 2C 50 43 28 49 29 2C 48 43 24 28 49 29 3A 8D |5,PC(I),HC$(I):.|
000010E0: 38 37 36 00 EE 18 10 03 81 4E B2 31 A4 33 00 03 |876......N.1.3..|
000010F0: 19 12 03 84 35 2C 4D 4C 24 28 49 2C 4E 29 3A 8D |....5,ML$(I,N):.|
00001100: 38 37 36 00 0D 19 14 03 82 4E 3A 82 49 00 20 19 |876......N:.I. .|
00001110: 16 03 53 B2 53 54 3A 8B 53 B3 B1 30 A7 37 39 34 |..S.ST:.S..0.794|
00001120: 00 2A 19 18 03 84 35 2C 45 24 00 3A 19 1A 03 A0 |.*....5,E$.:....|
00001130: 35 3A A0 31 35 3A 89 37 31 32 00 5E 19 1C 03 8F |5:.15:.712.^....|
00001140: 20 2D 2D 20 50 52 49 4E 54 20 4E 4F 4E 46 4F 52 | -- PRINT NONFOR|
00001150: 4D 41 54 54 45 44 20 4C 49 53 54 49 4E 47 00 97 |MATTED LISTING..|
00001160: 19 1E 03 98 34 2C 22 5B 20 52 45 43 4F 52 44 20 |....4,"[ RECORD |
00001170: 23 22 3B 49 3B 22 20 20 20 5D 22 3B 3A 81 4A B2 |#";I;" ]";:.J.|
00001180: 31 A4 36 32 3A 98 34 2C 22 2D 22 3B 3A 82 4A 3A |1.62:.4,"-";:.J:|
00001190: 98 34 2C 42 31 24 3B 00 A2 19 20 03 81 4E B2 31 |.4,B1$;... ..N.1|
000011A0: A4 46 00 CC 19 22 03 98 34 2C 46 24 28 4E 29 3B |.F..."..4,F$(N);|
000011B0: 3A 81 4A B2 31 A4 32 30 AB C3 28 46 24 28 4E 29 |:.J.1.20..(F$(N)|
000011C0: 29 3A 98 34 2C 22 2E 22 3B 3A 82 4A 00 E1 19 24 |):.4,".";:.J...$|
000011D0: 03 98 34 2C 52 45 43 24 28 4B 25 28 49 29 2C 4E |..4,REC$(K%(I),N|
000011E0: 29 00 F2 19 26 03 82 4E 3A 98 34 2C 42 31 24 3B |)...&..N:.4,B1$;|
000011F0: 3A 8E 00 08 1A 28 03 8F 20 2D 2D 20 50 52 49 4E |:....(.. -- PRIN|
00001200: 54 20 52 45 50 4F 52 54 00 2B 1A 2A 03 50 47 B2 |T REPORT.+.*.PG.|
00001210: 30 3A 53 24 B2 22 22 3A 81 4A B2 31 A4 50 57 3A |0:S$."":.J.1.PW:|
00001220: 53 24 B2 53 24 AA 42 24 3A 82 4A 00 49 1A 2C 03 |S$.S$.B$:.J.I.,.|
00001230: 81 4A B2 31 A4 4E 4C 3A 8B 54 54 24 28 4A 29 B3 |.J.1.NL:.TT$(J).|
00001240: B1 22 3E 22 A7 8D 38 31 38 00 52 1A 2E 03 82 4A |.">"..818.R....J|
00001250: 3A 8E 00 68 1A 30 03 8F 20 2D 2D 20 43 45 4E 54 |:..h.0.. -- CENT|
00001260: 45 52 20 54 49 54 4C 45 00 82 1A 32 03 42 B2 B5 |ER TITLE...2.B..|
00001270: 28 28 50 57 AB C3 28 54 54 24 28 4A 29 29 29 AD |((PW..(TT$(J))).|
00001280: 32 29 00 A7 1A 34 03 98 34 2C C8 28 53 24 2C 42 |2)...4..4,.(S$,B|
00001290: 29 AA 54 54 24 28 4A 29 3B 42 31 24 3B 3A 50 47 |).TT$(J);B1$;:PG|
000012A0: B2 50 47 AA 31 3A 8E 00 C2 1A 36 03 8F 20 2D 2D |.PG.1:....6.. --|
000012B0: 20 50 4F 53 49 54 49 4F 4E 20 48 45 41 44 49 4E | POSITION HEADIN|
000012C0: 47 53 00 F7 1A 38 03 8D 38 33 38 3A 50 43 28 4E |GS...8..838:PC(N|
000012D0: 43 AA 31 29 B2 50 57 AA 33 3A 43 57 B2 50 43 28 |C.1).PW.3:CW.PC(|
000012E0: 32 29 AB 32 AB 50 43 28 31 29 3A 8B 50 43 28 31 |2).2.PC(1):.PC(1|
000012F0: 29 B1 31 A7 38 32 38 00 11 1B 3A 03 98 34 2C C8 |).1.828...:..4,.|
00001300: 28 48 43 24 28 31 29 2C 43 57 29 3B 3A 89 38 33 |(HC$(1),CW);:.83|
00001310: 30 00 34 1B 3C 03 98 34 2C C8 28 53 24 2C 50 43 |0.4.<..4,.(S$,PC|
00001320: 28 31 29 AB 31 29 AA C8 28 48 43 24 28 31 29 2C |(1).1)..(HC$(1),|
00001330: 43 57 29 3B 00 6F 1B 3E 03 81 4A B2 32 A4 4E 43 |CW);.o.>..J.2.NC|
00001340: 3A 4D B2 50 43 28 4A 29 AB C3 28 C8 28 48 43 24 |:M.PC(J)..(.(HC$|
00001350: 28 4A AB 31 29 2C 50 43 28 4A 29 AB 32 AB 50 43 |(J.1),PC(J).2.PC|
00001360: 28 4A AB 31 29 29 29 AB 50 43 28 4A AB 31 29 00 |(J.1))).PC(J.1).|
00001370: 99 1B 40 03 98 34 2C C8 28 53 24 2C 4D 29 AA C8 |..@..4,.(S$,M)..|
00001380: 28 48 43 24 28 4A 29 2C 50 43 28 4A AA 31 29 AB |(HC$(J),PC(J.1).|
00001390: 32 AB 50 43 28 4A 29 29 3B 00 B7 1B 42 03 82 4A |2.PC(J));...B..J|
000013A0: 3A 98 34 2C 42 31 24 3B 3A 8D 38 33 38 3A 50 47 |:.4,B1$;:.838:PG|
000013B0: B2 50 47 AA 33 3A 8E 00 D2 1B 44 03 8F 20 2D 2D |.PG.3:....D.. --|
000013C0: 20 50 52 49 4E 54 20 44 41 53 48 45 44 20 4C 49 | PRINT DASHED LI|
000013D0: 4E 45 00 F3 1B 46 03 81 4A B2 31 A4 50 57 3A 98 |NE...F..J.1.PW:.|
000013E0: 34 2C 22 2D 22 3B 3A 82 4A 3A 98 34 2C 42 31 24 |4,"-";:.J:.4,B1$|
000013F0: 3B 3A 8E 00 0C 1C 48 03 8F 20 2D 2D 20 50 52 49 |;:....H.. -- PRI|
00001400: 4E 54 20 46 49 4C 45 20 44 41 54 41 00 4E 1C 4A |NT FILE DATA.N.J|
00001410: 03 46 31 B2 C5 28 4D 4C 24 28 31 2C 31 29 29 3A |.F1..(ML$(1,1)):|
00001420: 46 32 B2 C5 28 4D 4C 24 28 31 2C 32 29 29 3A 46 |F2..(ML$(1,2)):F|
00001430: 33 B2 C5 28 4D 4C 24 28 31 2C 33 29 29 3A 43 57 |3..(ML$(1,3)):CW|
00001440: B2 50 43 28 32 29 AB 32 AB 50 43 28 31 29 00 5F |.PC(2).2.PC(1)._|
00001450: 1C 4C 03 8B 50 43 28 31 29 B1 31 A7 38 35 30 00 |.L..PC(1).1.850.|
00001460: A0 1C 4E 03 98 34 2C C8 28 52 45 43 24 28 4B 25 |..N..4,.(REC$(K%|
00001470: 28 49 29 2C 46 31 29 AA 42 24 AA 52 45 43 24 28 |(I),F1).B$.REC$(|
00001480: 4B 25 28 49 29 2C 46 32 29 AA 42 24 AA 52 45 43 |K%(I),F2).B$.REC|
00001490: 24 28 4B 25 28 49 29 2C 46 33 29 2C 43 57 29 3B |$(K%(I),F3),CW);|
000014A0: 00 A9 1C 50 03 89 38 35 34 00 BF 1C 52 03 98 34 |...P..854...R..4|
000014B0: 2C C8 28 53 24 2C 50 43 28 31 29 AB 31 29 3B 00 |,.(S$,PC(1).1);.|
000014C0: FD 1C 54 03 98 34 2C C8 28 52 45 43 24 28 4B 25 |..T..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 49 29 2C 46 33 29 2C 43 57 29 3B 00 1C 1D |$(I),F3),CW);...|
00001500: 56 03 81 4A B2 32 A4 4E 43 3A 43 57 B2 50 43 28 |V..J.2.NC:CW.PC(|
00001510: 4A 29 AB 32 AB 50 43 28 4A AB 31 29 00 53 1D 58 |J).2.PC(J.1).S.X|
00001520: 03 46 31 B2 C5 28 4D 4C 24 28 4A AB 31 2C 31 29 |.F1..(ML$(J.1,1)|
00001530: 29 3A 46 32 B2 C5 28 4D 4C 24 28 4A AB 31 2C 32 |):F2..(ML$(J.1,2|
00001540: 29 29 3A 46 33 B2 C5 28 4D 4C 24 28 4A AB 31 2C |)):F3..(ML$(J.1,|
00001550: 33 29 29 00 95 1D 5A 03 4D B2 C3 28 C8 28 52 45 |3))...Z.M..(.(RE|
00001560: 43 24 28 4B 25 28 49 29 2C 46 31 29 AA 42 24 AA |C$(K%(I),F1).B$.|
00001570: 52 45 43 24 28 4B 25 28 49 29 2C 46 32 29 AA 42 |REC$(K%(I),F2).B|
00001580: 24 AA 52 45 43 24 28 4B 25 28 49 29 2C 46 33 29 |$.REC$(K%(I),F3)|
00001590: 2C 43 57 29 29 00 BE 1D 5C 03 4D B2 50 43 28 4A |,CW))...\.M.PC(J|
000015A0: 29 AB 4D AB 50 43 28 4A AB 31 29 3A 43 57 B2 50 |).M.PC(J.1):CW.P|
000015B0: 43 28 4A AA 31 29 AB 32 AB 50 43 28 4A 29 00 CE |C(J.1).2.PC(J)..|
000015C0: 1D 5E 03 98 34 2C C8 28 53 24 2C 4D 29 3B 00 FC |.^..4,.(S$,M);..|
000015D0: 1D 60 03 46 31 B2 C5 28 4D 4C 24 28 4A 2C 31 29 |.`.F1..(ML$(J,1)|
000015E0: 29 3A 46 32 B2 C5 4D 4C 24 28 4A 2C 32 29 29 3A |):F2..ML$(J,2)):|
000015F0: 46 33 B2 4D 4C 24 28 4A 2C 33 29 29 00 3D 1E 62 |F3.ML$(J,3)).=.b|
00001600: 03 98 34 2C C8 28 52 45 43 24 28 4B 25 28 49 29 |..4,.(REC$(K%(I)|
00001610: 2C 46 31 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 |,F1).B$.REC$(K%(|
00001620: 49 29 2C 46 32 29 AA 42 24 AA 52 45 43 24 28 4B |I),F2).B$.REC$(K|
00001630: 25 28 49 29 2C 46 33 29 2C 43 57 29 3B 00 54 1E |%(I),F3),CW);.T.|
00001640: 64 03 82 4A 3A 98 34 2C 42 31 24 3B 3A 50 47 B2 |d..J:.4,B1$;:PG.|
00001650: 50 47 AA 31 00 7B 1E 66 03 8B 50 47 B2 36 30 A7 |PG.1.{.f..PG.60.|
00001660: 81 4A B2 31 A4 36 3A 98 34 2C 42 31 24 3B 3A 82 |.J.1.6:.4,B1$;:.|
00001670: 4A 3A 50 47 B2 30 3A 8D 38 32 34 00 81 1E 68 03 |J:PG.0:.824...h.|
00001680: 8E 00 9B 1E 6A 03 8F 20 2D 2D 20 44 49 53 4B 20 |....j.. -- DISK |
00001690: 45 52 52 4F 52 20 43 48 45 43 4B 00 B9 1E 6C 03 |ERROR CHECK...l.|
000016A0: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
000016B0: 3A 8B 45 4E B3 32 30 A7 8E 00 E6 1E 6E 03 99 22 |:.EN.20.....n.."|
000016C0: 11 20 12 44 49 53 4B 20 45 52 52 4F 52 21 21 92 |. .DISK ERROR!!.|
000016D0: 22 45 4E 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 |"EN"., "EM$","ET|
000016E0: 22 9D 2C 22 45 53 00 11 1F 70 03 99 22 11 20 50 |".,"ES...p..". P|
000016F0: 52 45 53 53 20 12 41 4E 59 20 4B 45 59 92 20 54 |RESS .ANY KEY. T|
00001700: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU|
00001710: 22 00 24 1F 72 03 A1 41 24 3A 8B 41 24 B2 22 22 |".$.r..A$:.A$.""|
00001720: A7 38 38 32 00 34 1F 74 03 A0 35 3A A0 31 35 3A |.882.4.t..5:.15:|
00001730: 89 36 31 34 00 00 00 |.614... |
..(.... DATAFILE 2.6 SUBPROGRAM DFREPORT
.?.... FOR 1525 PRINTER.Q....4,4:CR$.G(1
3):B$.G(32):B1$.G(10):.PW.0.PW.80.Z....6
14...... - LOAD SUBPROGRAMS......"...
LOADING MAIN PROGRAM".K...."DATAFILE
",8......"... LOADING MAILING LABEL SUB
PROG"......"DFMAIL",8...... --QUIT ROUTI
NE.J...."...QUITTING NOW WILL ERASE CURR
ENT DATA."......".ARE YOU SURE YOU WANT
TO QUIT?":.".. .Y. OR .N. ?"......A$:.A$
."".524......A$."Y".532......A$."N".614.
.....524......"...SUBPROGRAM TERMINATED.
"......"..DATAFILE":....... -- SEARCH RO
UTINES MENU.C....". . PRINT OP
TIONS MENU ".E....". .A.LL REC
ORDS IN FILE"......". .S.ELECT INDIVI
DUAL RECORDS"... ..". .F.IND RECORDS
WITH COMMON FIELDS"..."..". .E.XIT TO
MAIN MENU"...$..".POSITION PAPER IN PRI
NTER AT TOP OF PAGE.".<.&.."PRINTER MAY
STOP DURING PRINTING IF THE".F.(.."COMPU
TER NEEDS TO RELOCATE MEMORY."...*..". .
PRESS THE APPROPRIATE KEY "..
.,..C$:.C$."".556......C$."A".606.I.0..C
$."S".570.Y.2..C$."F".580...4..C$."E".61
4...6..556...8.. -- SELECT ONE RECORD.4.
:.."..PRINT WHICH RECORD";I$:I.E(I$).I.<
..I.X.."NO SUCH RECORD EXISTS, TRY AGAIN
...":.570...>..K.2..810:.824:.842:.4,B1$
;:.538...@..798:.4,B1$;:.538.B.B.. -- FI
ND RECORD (SEARCH)...D..".. . FIND RE
CORDS WITH COMMON ITEMS ."...F..N.1.F
:." .";N;".";F$(N):.N.>.H..".WHICH FIELD
IS TO BE SEARCHED";SF.Y.J..SF.0.SF.F.."
...":.584...L.."ENTER .COMMON ITEM. ":."
(THE ENTIRE STRING IS NOT REQUIRED..)"..
.N..".";F$(SF);". ";:.T$.K.P..K.2..810:.
824.V.R..I.1.X...T..".SEARCHING RECORD";
I;"..".!.V..T$.H(REC$(K%(I),SF),C(T$))..
K.798,842.(.X..I.9.Z..4,B1$;:.538.T.\..
-- PRINT ALL RECORDS.~.^..".. PRINTING H
EADING":.K.2..810:.824...`..I.1.X:.". PR
INTING RECORD #";I:.K.798,842:.I.A.B..4,
B1$;:.538...D.. -- PRINT RECORDS MENU...
F..". . REPORT PRINTOUT MENU
".7.H..". .L.IST RECORDS UNFOR
MATTED".].J..". .P.RE-DEFINED FORMA
T OR"..L..". .D.EFINE NEW FORMAT".
..N..". .E.XIT TO MAIN MENU".G.P.."
. .M.AILING LABEL PROGRAM"...R..".
.Q.UIT PROGRAM"...T..".. . PRE
SS THE APPROPRIATE KEY ".).V..C$:.
C$."".630.>.X..C$."L".K.1:.538.S.Z..C$."
P".K.2:.766.J.|..C$."E"..4: 4:.510...~..
C$."M"..4: 4:.514......C$."D".K.2:.646..
....C$."Q"..4: 4:.520......630......"...
REPORT SIZE. UP TO 136 CHARACTER WIDE.".
.....".PRINTER MUST BE INITIALIZED FOR W
IDTHS".D...."GREATER THAN 80 CHARACTERS.
CHECK YOUR".S...."PRINTER MANUAL TO HOW
TO PRINT 136 CHRS"......".NUMBER OF CHA
RACTERS?":."? ...";RW:.".";PW......PW.
136.654......"...TITLE FORMAT. UP TO 4 T
ITLE LINES OF"......"INFORMATION AT THE
TOP OF THE FORM.".J....".NUMBER OF LINES
?":."? ...";NL:.".";NL:.NL.4.662.V....
J.1.NL:."TITLE #";J:."? > ...";TT$(J)..
....C(TT$(J)).37..".";......".";TT$(J):.
TT$(J)."".TT$(J).">"......J... .."..COLU
MN FORMAT. UP TO 8 COLUMNS WITH 2"......
"SPACES BETWEEN COLUMNS".C....".NUMBER O
F COLUMNS?":."? ...";NC:.".";NC:.NC.8.
674.Z....J.1.NC:."POSITION OF COLUMN #";
J:."? ...";PC(J)......".";PC(J):.J....
.."..HEADING FORMAT. COLUMN HEADINGS CAN
NOT"......"EXCEED WIDTH OF COLUMNS:."...
...J.1.NC:."COLUMN";J;" HEADING";......J
.NC..80.PC(J);:.690.1....PC(J.1).2.PC(J)
;.I...." CHARACTERS WIDE"......"? > ...
";HC$(J):.".";HC$(J):.HC$(J)."".HC$(J)."
>"......J......".CHOOSE WHICH FIELDS GO
UNDER THE COLUMNS"......"ENTER .0. IF AD
DITIONAL FIELDS ARE":."NOT DESIRED."....
..N.1.F:.".";N;". ";F$(N):.N.=....J.1.NC
:.".....";.25)"COLUMN";J;"..".I....L.1.3
:..25)".FIELD";L;" 0 ..";ML$(J,L)...B...
32);".";:.ML$(J,L)...D..L...F..J.C.H..".
..DO YOU WISH TO REVIEW YOUR FORMAT AND/
OR"...J.."MAKE CORRECTIONS? PRESS .Y. O
R .N."...L..A$:.A$."".716...N..A$."Y".64
6.!.P..A$."N".726.*.R..716.G.T.. -- SAVE
REPORT PROGRAM.U.V..". .SAVE FORMAT.?
.Y. OR .N."...X..A$:.A$."".728
...Z..A$."Y".736......A$."N".538......72
8.T....".SAVE UNDER WHAT FILE NAME?"....
..". ";NF$:.".";NF$:.NF$."".614......15
,8,15:.15,"S0:RP] ".NF$:.876.@....5,8,5,
"0:RP] ".NF$.",S,W":.876.]....5,PW;CR$;N
L;CR$;NC:.876.I....J.1.NL.|....5,TT$(J):
.876......J......I.1.NC......5,PC(I);CR$
;HC$(I):.876......N.1.3.L....5,ML$(I,N):
.876.V....N:.I......5,E$:.876: 5: 15:.53
8...... -- LOAD REPORT FORMAT.2...."..LO
AD FORMAT FROM WHAT FILE?".V....". ";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.J....I.1.NC......5,PC(I),HC$(I):.
876......N.1.3......5,ML$(I,N):.876.....
.N:.I. ...S.ST:.S..0.794.*....5,E$.:...
5: 15:.712.^.... -- PRINT NONFORMATTED L
ISTING......4,"[ RECORD #";I;" ]";:.J.
1.62:.4,"-";:.J:.4,B1$;... ..N.1.F.L."..
4,F$(N);:.J.1.20.C(F$(N)):.4,".";:.J...$
..4,REC$(K%(I),N)...&..N:.4,B1$;:....(..
-- PRINT REPORT.+.*.PG.0:S$."":.J.1.PW:
S$.S$.B$:.J.I.,..J.1.NL:.TT$(J)..">"..81
8.R....J:..H.0.. -- CENTER TITLE...2.B..
((PW.C(TT$(J))).2)...4..4,H(S$,B).TT$(J)
;B1$;:PG.PG.1:..B.6.. -- POSITION HEADIN
GS...8..838:PC(NC.1).PW.3:CW.PC(2).2.PC(
1):.PC(1).1.828...:..4,H(HC$(1),CW);:.83
0.4.<..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:..R.D.. -- PRINT DASHED LINE...F..
J.1.PW:.4,"-";:.J:.4,B1$;:....H.. -- PRI
NT FILE DATA.N.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
$(I),F3),CW);...V..J.2.NC:CW.PC(J).2.PC(
J.1).S.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.PC(J.1):CW.PC(J.1).2
.PC(J).N.^..4,H(S$,M);...`.F1.E(ML$(J,1)
):F2.EML$(J,2)):F3.ML$(J,3)).=.B..4,H(RE
C$(K%(I),F1).B$.REC$(K%(I),F2).B$.REC$(K
%(I),F3),CW);.T.D..J:.4,B1$;:PG.PG.1.{.F
..PG.60..J.1.6:.4,B1$;:.J:PG.0:.824...H.
....J.. -- DISK ERROR CHECK...L..15,EN,E
M$,ET,ES:.EN.20.....N..". .DISK ERROR!!.
"EN"., "EM$","ET".,"ES...P..". PRESS .AN
Y KEY. TO RETURN TO MENU".$.R..A$:.A$.""
.882.4.T. 5: 15:.614...
> CLICK IMAGE PREVIEW FOR FULL MODAL