DFMAIL
FILE INFORMATION
FILENAME(S): DFMAIL
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
7935288354bb133261829a8115fe8ce057c6b634383d92b73cc7df50c16ea22d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 UTILITY | DFMAIL | PRG | Radd Maxx | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 E8 03 8F 20 44 41 54 41 46 49 4C 45 |..#.... DATAFILE|
00000010: 20 32 2E 36 20 53 55 42 50 52 4F 47 20 44 46 4D | 2.6 SUBPROG DFM|
00000020: 41 49 4C 00 3B 08 EA 03 8F 20 46 4F 52 20 31 35 |AIL.;.... FOR 15|
00000030: 32 35 20 50 52 49 4E 54 45 52 53 00 4A 08 EC 03 |25 PRINTERS.J...|
00000040: 8B 54 25 B2 30 A7 54 25 B2 36 00 5A 08 EE 03 8B |.T%.0.T%.6.Z....|
00000050: 4C 57 B2 30 A7 4C 57 B2 33 32 00 8C 08 F0 03 9F |LW.0.LW.32......|
00000060: 34 2C 34 3A 42 24 B2 C7 28 33 32 29 3A 42 31 24 |4,4:B$..(32):B1$|
00000070: B2 C7 28 31 30 29 3A 43 52 24 B2 C7 28 31 33 29 |..(10):CR$..(13)|
00000080: 3A 8D 31 32 38 30 3A 89 31 31 30 32 00 A5 08 F2 |:.1280:.1102....|
00000090: 03 8F 20 2D 2D 4C 4F 41 44 20 53 55 42 50 52 4F |.. --LOAD SUBPRO|
000000A0: 47 52 41 4D 53 00 CB 08 F4 03 99 22 93 11 11 20 |GRAMS......"... |
000000B0: 20 20 20 20 20 20 4C 4F 41 44 49 4E 47 20 4D 41 | LOADING MA|
000000C0: 49 4E 20 50 52 4F 47 52 41 4D 22 00 DD 08 F6 03 |IN PROGRAM".....|
000000D0: 93 22 44 41 54 41 46 49 4C 45 22 2C 38 00 0B 09 |."DATAFILE",8...|
000000E0: F8 03 99 22 93 11 11 20 20 4C 4F 41 44 49 4E 47 |..."... LOADING|
000000F0: 20 52 45 50 4F 52 54 2F 4C 49 53 54 49 4E 47 20 | REPORT/LISTING |
00000100: 53 55 42 50 52 4F 47 52 41 4D 22 00 1D 09 FA 03 |SUBPROGRAM".....|
00000110: 93 22 44 46 52 45 50 4F 52 54 22 2C 38 00 33 09 |."DFREPORT",8.3.|
00000120: FC 03 8F 20 2D 2D 20 51 55 49 54 20 52 4F 55 54 |... -- QUIT ROUT|
00000130: 49 4E 45 00 62 09 FE 03 99 22 93 11 11 51 55 49 |INE.b...."...QUI|
00000140: 54 54 49 4E 47 20 4E 4F 57 20 57 49 4C 4C 20 45 |TTING NOW WILL E|
00000150: 52 41 53 45 20 43 55 52 52 45 4E 54 20 44 41 54 |RASE CURRENT DAT|
00000160: 41 22 00 9C 09 00 04 99 22 11 41 52 45 20 59 4F |A"......".ARE YO|
00000170: 55 20 53 55 52 45 20 59 4F 55 20 57 41 4E 54 20 |U SURE YOU WANT |
00000180: 54 4F 20 51 55 49 54 3F 22 3A 99 22 11 11 20 12 |TO QUIT?":.".. .|
00000190: 59 92 20 4F 52 20 12 4E 92 20 3F 22 00 B0 09 02 |Y. OR .N. ?"....|
000001A0: 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 32 36 |..A$:.A$."".1026|
000001B0: 00 C1 09 04 04 8B 41 24 B2 22 4E 22 A7 31 31 30 |......A$."N".110|
000001C0: 32 00 D2 09 06 04 8B 41 24 B2 22 59 22 A7 31 30 |2......A$."Y".10|
000001D0: 33 34 00 DC 09 08 04 89 31 30 32 36 00 FF 09 0A |34......1026....|
000001E0: 04 99 22 93 11 11 53 55 42 50 52 4F 47 52 41 4D |.."...SUBPROGRAM|
000001F0: 20 54 45 52 4D 49 4E 41 54 45 44 2E 2E 2E 22 00 | TERMINATED...".|
00000200: 2C 0A 0C 04 99 22 11 12 44 41 54 41 46 49 4C 45 |,...."..DATAFILE|
00000210: 92 20 42 59 20 4D 49 4B 45 20 4B 4F 4E 53 48 41 |. BY MIKE KONSHA|
00000220: 4B 20 28 43 29 31 39 38 33 22 3A 80 00 45 0A 0E |K (C)1983":..E..|
00000230: 04 8F 20 2D 2D 20 53 45 41 52 43 48 20 52 4F 55 |.. -- SEARCH ROU|
00000240: 54 49 4E 45 53 00 75 0A 10 04 99 22 93 20 12 20 |TINES.u....". . |
00000250: 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 | PRINT |
00000260: 4F 50 54 49 4F 4E 53 20 4D 45 4E 55 20 20 20 20 |OPTIONS MENU |
00000270: 20 20 20 20 22 00 97 0A 12 04 99 22 11 20 20 20 | "......". |
00000280: 20 12 41 92 4C 4C 20 52 45 43 4F 52 44 53 20 49 | .A.LL RECORDS I|
00000290: 4E 20 46 49 4C 45 22 00 BE 0A 14 04 99 22 11 20 |N FILE"......". |
000002A0: 20 20 20 12 53 92 45 4C 45 43 54 20 49 4E 44 49 | .S.ELECT INDI|
000002B0: 56 49 44 55 41 4C 20 52 45 43 4F 52 44 22 00 EC |VIDUAL RECORD"..|
000002C0: 0A 16 04 99 22 11 20 20 20 20 12 46 92 49 4E 44 |....". .F.IND|
000002D0: 20 52 45 43 4F 52 44 53 20 57 49 54 48 20 43 4F | RECORDS WITH CO|
000002E0: 4D 4D 4F 4E 20 46 49 45 4C 44 53 22 00 0C 0B 18 |MMON FIELDS"....|
000002F0: 04 99 22 11 20 20 20 20 12 45 92 58 49 54 20 54 |..". .E.XIT T|
00000300: 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 3D 0B 1A |O MAIN MENU".=..|
00000310: 04 99 22 11 20 12 20 20 20 20 20 20 50 52 45 53 |..". . PRES|
00000320: 53 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 |S THE APPROPRIAT|
00000330: 45 20 4B 45 59 20 20 20 20 20 20 20 22 00 51 0B |E KEY ".Q.|
00000340: 1C 04 A1 43 24 3A 8B 43 24 B2 22 22 A7 31 30 35 |...C$:.C$."".105|
00000350: 32 00 62 0B 1E 04 8B 43 24 B2 22 41 22 A7 31 30 |2.b....C$."A".10|
00000360: 39 38 00 73 0B 20 04 8B 43 24 B2 22 53 22 A7 31 |98.s. ..C$."S".1|
00000370: 30 36 36 00 84 0B 22 04 8B 43 24 B2 22 46 22 A7 |066..."..C$."F".|
00000380: 31 30 37 34 00 95 0B 24 04 8B 43 24 B2 22 45 22 |1074...$..C$."E"|
00000390: A7 31 31 30 32 00 9F 0B 26 04 89 31 30 35 32 00 |.1102...&..1052.|
000003A0: B8 0B 28 04 99 A3 33 32 29 3B 22 91 22 3B 3A 85 |..(...32);".";:.|
000003B0: 4D 4C 24 28 4A 2C 4C 29 00 BF 0B 2A 04 82 4C 00 |ML$(J,L)...*..L.|
000003C0: C6 0B 2C 04 82 4A 00 D6 0B 2E 04 8D 31 32 36 38 |..,..J......1268|
000003D0: 3A 89 31 30 34 30 00 F3 0B 30 04 8F 20 2D 2D 20 |:.1040...0.. -- |
000003E0: 46 49 4E 44 20 43 4F 4D 4D 4F 4E 20 52 45 43 4F |FIND COMMON RECO|
000003F0: 52 44 53 00 26 0C 32 04 99 22 93 11 20 12 20 20 |RDS.&.2..".. . |
00000400: 20 20 46 49 4E 44 20 52 45 43 4F 52 44 53 20 57 | FIND RECORDS W|
00000410: 49 54 48 20 43 4F 4D 4D 4F 4E 20 49 54 45 4D 53 |ITH COMMON ITEMS|
00000420: 20 20 20 20 11 22 00 47 0C 34 04 81 4E B2 31 A4 | .".G.4..N.1.|
00000430: 46 3A 99 22 20 12 22 3B 4E 3B 22 92 20 22 3B 46 |F:." .";N;". ";F|
00000440: 24 28 4E 29 3A 82 4E 00 70 0C 36 04 85 22 11 57 |$(N):.N.p.6..".W|
00000450: 48 49 43 48 20 46 49 45 4C 44 20 49 53 20 54 4F |HICH FIELD IS TO|
00000460: 20 42 45 20 53 45 41 52 43 48 45 44 22 3B 53 46 | BE SEARCHED";SF|
00000470: 00 8C 0C 38 04 8B 53 46 B3 30 B0 53 46 B1 46 A7 |...8..SF.0.SF.F.|
00000480: 99 22 91 91 91 22 3A 89 31 30 37 38 00 D3 0C 3A |."...":.1078...:|
00000490: 04 99 22 11 45 4E 54 45 52 20 12 43 4F 4D 4D 4F |..".ENTER .COMMO|
000004A0: 4E 20 49 54 45 4D 92 20 22 3A 99 22 11 28 54 48 |N ITEM. ":.".(TH|
000004B0: 45 20 45 4E 54 49 52 45 20 53 54 52 49 4E 47 20 |E ENTIRE STRING |
000004C0: 49 53 20 4E 4F 54 20 52 45 51 55 49 52 45 44 2E |IS NOT REQUIRED.|
000004D0: 2E 29 22 00 EE 0C 3C 04 99 22 11 12 22 3B 46 24 |.)"...<.."..";F$|
000004E0: 28 53 46 29 3B 22 92 20 22 3B 3A 85 54 24 00 F9 |(SF);". ";:.T$..|
000004F0: 0C 3E 04 81 49 B2 31 A4 58 00 19 0D 40 04 99 22 |.>..I.1.X...@.."|
00000500: 11 53 45 41 52 43 48 49 4E 47 20 52 45 43 4F 52 |.SEARCHING RECOR|
00000510: 44 22 3B 49 3B 22 91 91 22 00 3F 0D 42 04 8B 54 |D";I;"..".?.B..T|
00000520: 24 B2 C8 28 52 45 43 24 28 4B 25 28 49 29 2C 53 |$..(REC$(K%(I),S|
00000530: 46 29 2C C3 28 54 24 29 29 A7 8D 31 32 36 38 00 |F),.(T$))..1268.|
00000540: 46 0D 44 04 82 49 00 50 0D 46 04 89 31 30 34 30 |F.D..I.P.F..1040|
00000550: 00 6B 0D 48 04 8F 20 2D 2D 20 50 52 49 4E 54 20 |.k.H.. -- PRINT |
00000560: 41 4C 4C 20 52 45 43 4F 52 44 53 00 A4 0D 4A 04 |ALL RECORDS...J.|
00000570: 99 22 93 11 22 3A 81 49 B2 31 A4 58 3A 99 22 91 |."..":.I.1.X:.".|
00000580: 20 50 52 49 4E 54 49 4E 47 20 52 45 43 4F 52 44 | PRINTING RECORD|
00000590: 20 23 22 3B 49 3A 8D 31 32 36 38 3A 82 49 3A 89 | #";I:.1268:.I:.|
000005A0: 31 30 34 30 00 C1 0D 4C 04 8F 20 2D 2D 20 4D 41 |1040...L.. -- MA|
000005B0: 49 4C 49 4E 47 20 4C 41 42 45 4C 53 20 4D 45 4E |ILING LABELS MEN|
000005C0: 55 00 F3 0D 4E 04 99 22 93 20 12 20 20 20 20 20 |U...N..". . |
000005D0: 20 20 20 4D 41 49 4C 49 4E 47 20 4C 41 42 45 4C | MAILING LABEL|
000005E0: 53 20 4D 45 4E 55 20 20 20 20 20 20 20 20 20 20 |S MENU |
000005F0: 20 3F 22 00 1A 0E 50 04 99 22 11 11 20 20 20 20 | ?"...P..".. |
00000600: 20 20 12 50 92 52 45 2D 44 45 46 49 4E 45 44 20 | .P.RE-DEFINED |
00000610: 46 4F 52 4D 41 54 20 4F 52 22 00 3C 0E 52 04 99 |FORMAT OR".<.R..|
00000620: 22 11 20 20 20 20 20 20 12 44 92 45 46 49 4E 45 |". .D.EFINE|
00000630: 20 4E 45 57 20 46 4F 52 4D 41 54 22 00 5E 0E 54 | NEW FORMAT".^.T|
00000640: 04 99 22 11 20 20 20 20 20 20 12 43 92 48 41 4E |..". .C.HAN|
00000650: 47 45 20 4C 41 42 45 4C 20 53 49 5A 45 22 00 87 |GE LABEL SIZE"..|
00000660: 0E 56 04 99 22 11 11 20 20 20 20 20 20 12 45 92 |.V..".. .E.|
00000670: 58 49 54 20 54 4F 20 4D 41 49 4E 20 50 52 4F 47 |XIT TO MAIN PROG|
00000680: 52 41 4D 20 4F 52 22 00 AE 0E 58 04 99 22 11 20 |RAM OR"...X..". |
00000690: 20 20 20 20 20 12 52 92 45 50 4F 52 54 2F 4C 49 | .R.EPORT/LI|
000006A0: 53 54 49 4E 47 20 50 52 4F 47 52 41 4D 22 00 CB |STING PROGRAM"..|
000006B0: 0E 5A 04 99 22 11 20 20 20 20 20 20 12 51 92 55 |.Z..". .Q.U|
000006C0: 49 54 20 50 52 4F 47 52 41 4D 22 00 FD 0E 5C 04 |IT PROGRAM"...\.|
000006D0: 99 22 11 11 20 12 20 20 20 20 20 20 50 52 45 53 |.".. . PRES|
000006E0: 53 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 |S THE APPROPRIAT|
000006F0: 45 20 4B 45 59 20 20 20 20 20 20 20 22 00 11 0F |E KEY "...|
00000700: 5E 04 A1 43 24 3A 8B 43 24 B2 22 22 A7 31 31 31 |^..C$:.C$."".111|
00000710: 38 00 22 0F 60 04 8B 43 24 B2 22 50 22 A7 31 32 |8.".`..C$."P".12|
00000720: 32 30 00 3A 0F 62 04 8B 43 24 B2 22 43 22 A7 8D |20.:.b..C$."C"..|
00000730: 31 32 38 30 3A 89 31 31 30 32 00 52 0F 64 04 8B |1280:.1102.R.d..|
00000740: 43 24 B2 22 45 22 A7 98 34 3A A0 34 3A 89 31 30 |C$."E"..4:.4:.10|
00000750: 31 32 00 6A 0F 66 04 8B 43 24 B2 22 52 22 A7 98 |12.j.f..C$."R"..|
00000760: 34 3A A0 34 3A 89 31 30 31 36 00 7B 0F 68 04 8B |4:.4:.1016.{.h..|
00000770: 43 24 B2 22 44 22 A7 31 31 33 36 00 93 0F 6A 04 |C$."D".1136...j.|
00000780: 8B 43 24 B2 22 51 22 A7 98 34 3A A0 34 3A 89 31 |.C$."Q"..4:.4:.1|
00000790: 30 32 32 00 9D 0F 6C 04 89 31 31 31 38 00 BA 0F |022...l..1118...|
000007A0: 6E 04 8F 20 2D 2D 20 4D 41 49 4C 49 4E 47 20 4C |n.. -- MAILING L|
000007B0: 49 53 54 20 46 4F 52 4D 41 54 00 EB 0F 70 04 99 |IST FORMAT...p..|
000007C0: 22 93 20 12 20 20 20 20 20 20 20 20 4D 41 49 4C |". . MAIL|
000007D0: 49 4E 47 20 4C 49 53 54 20 46 4F 52 4D 41 54 20 |ING LIST FORMAT |
000007E0: 20 20 20 20 20 20 20 20 20 20 22 00 19 10 72 04 | "...r.|
000007F0: 99 22 11 20 20 54 48 49 53 20 46 4F 52 4D 41 54 |.". THIS FORMAT|
00000800: 20 55 53 45 53 20 53 49 4E 47 4C 45 20 52 4F 57 | USES SINGLE ROW|
00000810: 20 4C 41 42 45 4C 53 2E 22 00 45 10 74 04 99 22 | LABELS.".E.t.."|
00000820: 45 41 43 48 20 4C 41 42 45 4C 20 43 4F 4E 54 41 |EACH LABEL CONTA|
00000830: 49 4E 53 20 55 50 20 54 4F 22 54 25 AB 31 22 52 |INS UP TO"T%.1"R|
00000840: 4F 57 53 2E 22 00 73 10 76 04 99 22 45 41 43 48 |OWS.".s.v.."EACH|
00000850: 20 52 4F 57 20 43 41 4E 20 43 4F 4E 53 49 53 54 | ROW CAN CONSIST|
00000860: 20 4F 46 20 31 20 54 4F 20 33 20 46 49 45 4C 44 | OF 1 TO 3 FIELD|
00000870: 53 2E 22 00 A2 10 78 04 99 22 49 46 20 54 48 45 |S."...x.."IF THE|
00000880: 20 4C 45 4E 47 48 54 20 4F 46 20 4D 55 4C 54 49 | LENGHT OF MULTI|
00000890: 50 4C 45 20 49 54 45 4D 53 20 45 58 43 45 45 44 |PLE ITEMS EXCEED|
000008A0: 53 22 00 D3 10 7A 04 99 22 9D 22 4C 57 22 43 48 |S"...z.."."LW"CH|
000008B0: 41 52 41 43 54 45 52 53 2C 20 53 4F 4D 45 20 44 |ARACTERS, SOME D|
000008C0: 41 54 41 20 57 49 4C 4C 20 42 45 20 43 55 54 4F |ATA WILL BE CUTO|
000008D0: 46 46 22 00 02 11 7C 04 99 22 11 12 4E 55 4D 42 |FF"...|.."..NUMB|
000008E0: 45 52 20 4F 46 20 52 4F 57 53 3F 22 3A 99 22 3F |ER OF ROWS?":."?|
000008F0: 20 20 20 9D 9D 9D 22 3B 52 57 3A 85 22 91 22 3B | ...";RW:.".";|
00000900: 52 57 00 1C 11 7E 04 8B 52 57 B1 54 25 AB 31 A7 |RW...~..RW.T%.1.|
00000910: 99 22 91 91 91 22 3A 89 31 31 34 38 00 2B 11 80 |."...":.1148.+..|
00000920: 04 8B 52 57 B2 30 A7 31 31 30 32 00 57 11 82 04 |..RW.0.1102.W...|
00000930: 99 22 93 43 48 4F 4F 53 45 20 57 48 49 43 48 20 |.".CHOOSE WHICH |
00000940: 46 49 45 4C 44 53 20 47 4F 20 49 4E 20 45 41 43 |FIELDS GO IN EAC|
00000950: 48 20 52 4F 57 2E 22 00 92 11 84 04 99 22 45 4E |H ROW."......"EN|
00000960: 54 45 52 20 12 30 12 20 49 46 20 41 44 44 49 54 |TER .0. IF ADDIT|
00000970: 49 4F 4E 41 4C 20 46 49 45 4C 44 53 20 41 52 45 |IONAL FIELDS ARE|
00000980: 22 3A 99 22 4E 4F 54 20 44 45 53 49 52 45 44 2E |":."NOT DESIRED.|
00000990: 11 22 00 B1 11 86 04 81 4E B2 31 A4 46 3A 99 22 |."......N.1.F:."|
000009A0: 12 22 3B 4E 3B 22 92 22 3B 46 24 28 4E 29 3A 82 |.";N;".";F$(N):.|
000009B0: 4E 00 D7 11 88 04 81 4A B2 31 A4 52 57 3A 99 22 |N......J.1.RW:."|
000009C0: 13 11 11 11 11 22 3B A3 32 35 29 22 52 4F 57 22 |.....";.25)"ROW"|
000009D0: 3B 4A 3B 22 11 11 22 00 05 12 8A 04 81 4C B2 31 |;J;".."......L.1|
000009E0: A4 33 3A 99 A3 32 35 29 22 91 46 49 45 4C 44 22 |.3:..25)".FIELD"|
000009F0: 3B 4C 3B 22 20 30 20 9D 9D 9D 9D 22 3B 4D 4C 24 |;L;" 0 ....";ML$|
00000A00: 28 4A 2C 4C 29 00 38 12 92 04 99 22 93 11 11 44 |(J,L).8...."...D|
00000A10: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 |O YOU WISH TO RE|
00000A20: 56 49 45 57 20 59 4F 55 52 20 46 4F 52 4D 41 54 |VIEW YOUR FORMAT|
00000A30: 20 41 4E 44 2F 4F 52 22 00 63 12 94 04 99 22 4D | AND/OR".c...."M|
00000A40: 41 4B 45 20 43 4F 52 52 45 43 54 49 4F 4E 53 3F |AKE CORRECTIONS?|
00000A50: 20 20 50 52 45 53 53 20 12 59 92 20 4F 52 20 12 | PRESS .Y. OR .|
00000A60: 4E 12 22 00 77 12 96 04 A1 41 24 3A 8B 41 24 B2 |N.".w....A$:.A$.|
00000A70: 22 22 A7 31 31 37 34 00 88 12 98 04 8B 41 24 B2 |"".1174......A$.|
00000A80: 22 59 22 A7 31 31 33 36 00 99 12 9A 04 8B 41 24 |"Y".1136......A$|
00000A90: B2 22 4E 22 A7 31 31 38 34 00 A3 12 9C 04 89 31 |."N".1184......1|
00000AA0: 31 38 34 00 C6 12 9E 04 8F 20 2D 2D 20 53 41 56 |184...... -- SAV|
00000AB0: 45 20 4D 41 49 4C 49 4E 47 20 4C 41 42 45 4C 20 |E MAILING LABEL |
00000AC0: 46 4F 52 4D 41 54 00 F4 12 A0 04 99 22 11 12 53 |FORMAT......"..S|
00000AD0: 41 56 45 20 46 4F 52 4D 41 54 92 3F 20 20 20 20 |AVE FORMAT.? |
00000AE0: 20 20 20 20 20 20 20 20 20 12 59 92 20 4F 52 20 | .Y. OR |
00000AF0: 12 4E 92 22 00 08 13 A2 04 A1 41 24 3A 8B 41 24 |.N."......A$:.A$|
00000B00: B2 22 22 A7 31 31 38 36 00 19 13 A4 04 8B 41 24 |."".1186......A$|
00000B10: B2 22 59 22 A7 31 31 39 34 00 2A 13 A6 04 8B 41 |."Y".1194.*....A|
00000B20: 24 B2 22 4E 22 A7 31 32 34 36 00 34 13 A8 04 89 |$."N".1246.4....|
00000B30: 31 31 38 36 00 57 13 AA 04 99 22 11 53 41 56 45 |1186.W....".SAVE|
00000B40: 20 55 4E 44 45 52 20 57 48 41 54 20 46 49 4C 45 | UNDER WHAT FILE|
00000B50: 20 4E 41 4D 45 3F 22 00 7C 13 AC 04 99 22 11 20 | NAME?".|....". |
00000B60: 20 22 3B 4E 46 24 3A 85 22 91 22 3B 4E 46 24 3A | ";NF$:.".";NF$:|
00000B70: 8B 4E 46 24 B2 22 22 A7 31 31 30 32 00 A1 13 AE |.NF$."".1102....|
00000B80: 04 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 |..15,8,15:.15,"S|
00000B90: 30 3A 4D 4C 5D 20 22 AA 4E 46 24 3A 8D 31 33 31 |0:ML] ".NF$:.131|
00000BA0: 36 00 C6 13 B0 04 9F 35 2C 38 2C 35 2C 22 30 3A |6......5,8,5,"0:|
00000BB0: 4D 4C 5D 20 22 AA 4E 46 24 AA 22 2C 53 2C 57 22 |ML] ".NF$.",S,W"|
00000BC0: 3A 8D 31 33 31 36 00 D0 13 B2 04 98 35 2C 52 57 |:.1316......5,RW|
00000BD0: 00 E3 13 B4 04 81 49 B2 31 A4 52 57 3A 81 4E B2 |......I.1.RW:.N.|
00000BE0: 31 A4 33 00 F9 13 B6 04 98 35 2C 4D 4C 24 28 49 |1.3......5,ML$(I|
00000BF0: 2C 4E 29 3A 8D 31 33 31 36 00 00 14 B8 04 82 4E |,N):.1316......N|
00000C00: 00 07 14 BA 04 82 49 00 1A 14 BC 04 98 35 2C 22 |......I......5,"|
00000C10: 45 4F 46 22 3A 8D 31 33 31 36 00 25 14 BE 04 A0 |EOF":.1316.%....|
00000C20: 35 3A A0 31 35 00 2F 14 C0 04 89 31 32 34 36 00 |5:.15./....1246.|
00000C30: 52 14 C2 04 8F 20 2D 2D 20 4C 4F 41 44 20 4D 41 |R.... -- LOAD MA|
00000C40: 49 4C 49 4E 47 20 4C 41 42 45 4C 20 46 4F 52 4D |ILING LABEL FORM|
00000C50: 41 54 00 77 14 C4 04 99 22 11 11 4C 4F 41 44 20 |AT.w...."..LOAD |
00000C60: 46 4F 52 4D 41 54 20 46 52 4F 4D 20 57 48 41 54 |FORMAT FROM WHAT|
00000C70: 20 46 49 4C 45 3F 22 00 9C 14 C6 04 99 22 11 20 | FILE?"......". |
00000C80: 20 22 3B 4E 46 24 3A 85 22 91 22 3B 4E 46 24 3A | ";NF$:.".";NF$:|
00000C90: 8B 4E 46 24 B2 22 22 A7 31 31 30 32 00 CA 14 C8 |.NF$."".1102....|
00000CA0: 04 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 |..15,8,15:.5,8,5|
00000CB0: 2C 22 30 3A 4D 4C 5D 20 22 AA 4E 46 24 AA 22 2C |,"0:ML] ".NF$.",|
00000CC0: 53 2C 52 22 3A 8D 31 33 31 36 00 D4 14 CA 04 84 |S,R":.1316......|
00000CD0: 35 2C 52 57 00 E7 14 CC 04 81 49 B2 31 A4 52 57 |5,RW......I.1.RW|
00000CE0: 3A 81 4E B2 31 A4 33 00 FD 14 CE 04 84 35 2C 4D |:.N.1.3......5,M|
00000CF0: 4C 24 28 49 2C 4E 29 3A 8D 31 33 31 36 00 04 15 |L$(I,N):.1316...|
00000D00: D0 04 82 4E 00 0B 15 D2 04 82 49 00 1F 15 D4 04 |...N......I.....|
00000D10: 53 B2 53 54 3A 8B 53 B3 B1 30 A7 31 32 34 30 00 |S.ST:.S..0.1240.|
00000D20: 29 15 D6 04 84 35 2C 45 24 00 34 15 D8 04 A0 35 |)....5,E$.4....5|
00000D30: 3A A0 31 35 00 3E 15 DA 04 89 31 31 37 30 00 5B |:.15.>....1170.[|
00000D40: 15 DC 04 8F 20 2D 2D 20 50 52 49 4E 54 20 53 41 |.... -- PRINT SA|
00000D50: 4D 50 4C 45 20 4C 41 42 45 4C 53 00 89 15 DE 04 |MPLE LABELS.....|
00000D60: 99 22 93 49 4E 53 45 52 54 20 53 49 4E 47 4C 45 |.".INSERT SINGLE|
00000D70: 20 52 4F 57 20 54 52 41 43 54 4F 52 20 46 45 45 | ROW TRACTOR FEE|
00000D80: 44 20 4C 41 42 45 4C 53 22 00 B9 15 E0 04 99 22 |D LABELS"......"|
00000D90: 11 52 55 4E 20 54 45 53 54 20 4C 41 42 45 4C 53 |.RUN TEST LABELS|
00000DA0: 20 54 4F 20 48 45 4C 50 20 50 4F 53 49 54 49 4F | TO HELP POSITIO|
00000DB0: 4E 20 4C 41 42 45 4C 53 22 00 D5 15 E2 04 99 22 |N LABELS"......"|
00000DC0: 11 11 50 52 45 53 53 20 12 54 92 45 53 54 20 4C |..PRESS .T.EST L|
00000DD0: 41 42 45 4C 22 00 F4 15 E4 04 99 22 11 20 20 20 |ABEL"......". |
00000DE0: 20 20 20 12 43 92 48 4F 4F 53 45 20 52 45 43 4F | .C.HOOSE RECO|
00000DF0: 52 44 53 22 00 08 16 E6 04 A1 41 24 3A 8B 41 24 |RDS"......A$:.A$|
00000E00: B2 22 22 A7 31 32 35 34 00 19 16 E8 04 8B 41 24 |."".1254......A$|
00000E10: B2 22 43 22 A7 31 30 34 30 00 2A 16 EA 04 8B 41 |."C".1040.*....A|
00000E20: 24 B2 22 54 22 A7 31 32 35 34 00 54 16 EC 04 81 |$."T".1254.T....|
00000E30: 49 B2 31 A4 52 57 3A 81 4A B2 31 A4 4C 57 3A 98 |I.1.RW:.J.1.LW:.|
00000E40: 34 2C 22 2A 22 3B 3A 82 4A 3A 98 34 2C 42 31 24 |4,"*";:.J:.4,B1$|
00000E50: 3B 3A 82 49 00 6E 16 EE 04 81 49 B2 31 A4 54 25 |;:.I.n....I.1.T%|
00000E60: AB 52 57 3A 98 34 2C 42 31 24 3B 3A 82 49 00 78 |.RW:.4,B1$;:.I.x|
00000E70: 16 F0 04 89 31 32 34 36 00 8E 16 F2 04 8F 20 2D |....1246...... -|
00000E80: 2D 20 50 52 49 4E 54 20 4C 41 42 45 4C 53 00 C7 |- PRINT LABELS..|
00000E90: 16 F4 04 81 4A B2 31 A4 52 57 3A 46 31 B2 C5 28 |....J.1.RW:F1..(|
00000EA0: 4D 4C 24 28 4A 2C 31 29 29 3A 46 32 B2 C5 28 4D |ML$(J,1)):F2..(M|
00000EB0: 4C 24 28 4A 2C 32 29 29 3A 46 33 B2 C5 28 4D 4C |L$(J,2)):F3..(ML|
00000EC0: 24 28 4A 2C 33 29 29 00 07 17 F6 04 98 34 2C C8 |$(J,3))......4,.|
00000ED0: 28 52 45 43 24 28 4B 25 28 49 29 2C 46 31 29 AA |(REC$(K%(I),F1).|
00000EE0: 42 24 AA 52 45 43 24 28 4B 25 28 49 29 2C 46 32 |B$.REC$(K%(I),F2|
00000EF0: 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 49 29 2C |).B$.REC$(K%(I),|
00000F00: 46 33 29 2C 4C 57 29 00 0E 17 F8 04 82 4A 00 28 |F3),LW)......J.(|
00000F10: 17 FA 04 81 53 B2 31 A4 54 25 AB 52 57 3A 98 34 |....S.1.T%.RW:.4|
00000F20: 2C 42 31 24 3B 3A 82 53 00 2E 17 FC 04 8E 00 49 |,B1$;:.S.......I|
00000F30: 17 FE 04 8F 20 2D 2D 20 43 48 4F 4F 53 45 20 4C |.... -- CHOOSE L|
00000F40: 41 42 45 4C 20 53 49 5A 45 00 7A 17 00 05 99 22 |ABEL SIZE.z...."|
00000F50: 93 20 12 20 20 20 20 20 20 20 20 20 20 20 20 4C |. . L|
00000F60: 41 42 45 4C 20 53 49 5A 45 20 20 20 20 20 20 20 |ABEL SIZE |
00000F70: 20 20 20 20 20 20 20 20 92 22 00 A4 17 02 05 99 | ."......|
00000F80: 22 11 20 20 20 20 12 53 92 54 41 4E 44 41 52 44 |". .S.TANDARD|
00000F90: 20 2D 20 35 20 52 4F 57 53 20 50 45 52 20 4C 41 | - 5 ROWS PER LA|
00000FA0: 42 45 4C 22 00 CC 17 04 05 99 22 20 20 20 20 20 |BEL"......" |
00000FB0: 20 31 35 2F 31 36 20 49 4E 43 48 20 42 59 20 33 | 15/16 INCH BY 3|
00000FC0: 20 31 2F 32 20 49 4E 43 48 45 53 22 00 F6 17 06 | 1/2 INCHES"....|
00000FD0: 05 99 22 11 20 20 20 20 12 4C 92 41 52 47 45 20 |..". .L.ARGE |
00000FE0: 20 20 20 2D 20 38 20 52 4F 57 53 20 50 45 52 20 | - 8 ROWS PER |
00000FF0: 4C 41 42 45 4C 22 00 1F 18 08 05 99 22 20 20 20 |LABEL"......" |
00001000: 20 20 20 31 20 37 2F 31 36 20 49 4E 43 48 20 42 | 1 7/16 INCH B|
00001010: 59 20 33 20 31 2F 32 20 49 4E 43 48 45 53 22 00 |Y 3 1/2 INCHES".|
00001020: 4D 18 0A 05 99 22 11 20 20 20 20 12 4F 92 54 48 |M....". .O.TH|
00001030: 45 52 20 20 20 20 2D 20 43 55 53 54 4F 4D 20 4C |ER - CUSTOM L|
00001040: 41 42 45 4C 20 53 49 5A 45 20 4F 52 22 00 77 18 |ABEL SIZE OR".w.|
00001050: 0C 05 99 22 20 20 20 20 20 20 4E 55 4D 42 45 52 |..." NUMBER|
00001060: 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 20 50 | OF CHARACTERS P|
00001070: 45 52 20 52 4F 57 22 00 A7 18 0E 05 99 22 11 11 |ER ROW"......"..|
00001080: 20 4E 4F 54 45 3A 20 4C 41 42 45 4C 53 20 41 52 | NOTE: LABELS AR|
00001090: 45 20 53 45 50 41 52 41 54 45 44 20 42 59 20 4F |E SEPARATED BY O|
000010A0: 4E 45 20 52 4F 57 22 00 D1 18 10 05 99 22 20 33 |NE ROW"......" 3|
000010B0: 32 20 43 48 41 52 41 43 54 45 52 53 20 50 45 52 |2 CHARACTERS PER|
000010C0: 20 52 4F 57 20 49 53 20 53 54 41 4E 44 41 52 44 | ROW IS STANDARD|
000010D0: 22 00 02 19 12 05 99 22 11 20 12 20 20 20 20 20 |"......". . |
000010E0: 20 50 52 45 53 53 20 54 48 45 20 41 50 50 52 4F | PRESS THE APPRO|
000010F0: 50 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 20 |PRIATE KEY |
00001100: 20 22 00 16 19 14 05 A1 43 24 3A 8B 43 24 B2 22 | "......C$:.C$."|
00001110: 22 A7 31 33 30 30 00 29 19 16 05 8B 43 24 B2 22 |".1300.)....C$."|
00001120: 53 22 A7 54 25 B2 36 3A 8E 00 3C 19 18 05 8B 43 |S".T%.6:..<....C|
00001130: 24 B2 22 4C 22 A7 54 25 B2 39 3A 8E 00 4D 19 1A |$."L".T%.9:..M..|
00001140: 05 8B 43 24 B2 22 4F 22 A7 31 33 31 30 00 57 19 |..C$."O".1310.W.|
00001150: 1C 05 89 31 33 30 30 00 8F 19 1E 05 85 22 11 20 |...1300......". |
00001160: 45 4E 54 45 52 20 4E 55 4D 42 45 52 20 4F 46 20 |ENTER NUMBER OF |
00001170: 52 4F 57 53 20 4F 4E 20 4C 41 42 45 4C 22 3B 54 |ROWS ON LABEL";T|
00001180: 25 3A 52 57 B2 54 25 3A 54 25 B2 54 25 AA 31 00 |%:RW.T%:T%.T%.1.|
00001190: BA 19 20 05 85 22 20 45 4E 54 45 52 20 23 20 4F |.. .." ENTER # O|
000011A0: 46 20 43 48 41 52 41 43 54 45 52 53 20 50 45 52 |F CHARACTERS PER|
000011B0: 20 52 4F 57 22 3B 4C 57 3A 8E 00 D4 19 22 05 8F | ROW";LW:...."..|
000011C0: 20 2D 2D 20 44 49 53 4B 20 45 52 52 4F 52 20 43 | -- DISK ERROR C|
000011D0: 48 45 43 4B 00 F2 19 24 05 84 31 35 2C 45 4E 2C |HECK...$..15,EN,|
000011E0: 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B3 32 30 |EM$,ET,ES:.EN.20|
000011F0: A7 8E 00 1D 1A 26 05 99 22 11 20 12 44 49 53 4B |.....&..". .DISK|
00001200: 20 45 52 52 4F 52 92 22 45 4E 22 9D 2C 20 22 45 | ERROR."EN"., "E|
00001210: 4D 24 22 2C 22 45 54 22 9D 2C 22 45 53 00 48 1A |M$","ET".,"ES.H.|
00001220: 28 05 99 22 11 20 50 52 45 53 53 20 12 41 4E 59 |(..". PRESS .ANY|
00001230: 20 4B 45 59 92 20 54 4F 20 52 45 54 55 52 4E 20 | KEY. TO RETURN |
00001240: 54 4F 20 4D 45 4E 55 22 00 5C 1A 2A 05 A1 41 24 |TO MENU".\.*..A$|
00001250: 3A 8B 41 24 B2 22 22 A7 31 33 32 32 00 6D 1A 2C |:.A$."".1322.m.,|
00001260: 05 A0 35 3A A0 31 35 3A 89 31 31 30 32 00 00 00 |..5:.15:.1102...|
..#.... DATAFILE 2.6 SUBPROG DFMAIL.;...
. FOR 1525 PRINTERS.J....T%.0.T%.6.Z....
LW.0.LW.32......4,4:B$.G(32):B1$.G(10):C
R$.G(13):.1280:.1102...... --LOAD SUBPRO
GRAMS.K...."... LOADING MAIN PROGR
AM"......"DATAFILE",8......"... LOADING
REPORT/LISTING SUBPROGRAM"......"DFREPO
RT",8.3.... -- QUIT ROUTINE.B...."...QUI
TTING NOW WILL ERASE CURRENT DATA"......
".ARE YOU SURE YOU WANT TO QUIT?":.".. .
Y. OR .N. ?"......A$:.A$."".1026.A....A$
."N".1102.R....A$."Y".1034......1026....
.."...SUBPROGRAM TERMINATED...".,...."..
DATAFILE. BY MIKE KONSHAK (C)1983":..E..
.. -- SEARCH ROUTINES.U....". .
PRINT OPTIONS MENU "......".
.A.LL RECORDS IN FILE"......". .S.EL
ECT INDIVIDUAL RECORD"......". .F.IND
RECORDS WITH COMMON FIELDS"......".
.E.XIT TO MAIN MENU".=....". . PRES
S THE APPROPRIATE KEY ".Q....C$:.C
$."".1052.B....C$."A".1098.S. ..C$."S".1
066..."..C$."F".1074...$..C$."E".1102...
&..1052...(...32);".";:.ML$(J,L)...*..L.
F.,..J.V....1268:.1040...0.. -- FIND COM
MON RECORDS.&.2..".. . FIND RECORDS W
ITH COMMON ITEMS .".G.4..N.1.F:." .";
N;". ";F$(N):.N.P.6..".WHICH FIELD IS TO
BE SEARCHED";SF...8..SF.0.SF.F.."...":.
1078.S.:..".ENTER .COMMON ITEM. ":.".(TH
E ENTIRE STRING IS NOT REQUIRED..)"...<.
."..";F$(SF);". ";:.T$...>..I.1.X...@.."
.SEARCHING RECORD";I;"..".?.B..T$.H(REC$
(K%(I),SF),C(T$))..1268.F.D..I.P.F..1040
.K.H.. -- PRINT ALL RECORDS...J.."..":.I
.1.X:.". PRINTING RECORD #";I:.1268:.I:.
1040.A.L.. -- MAILING LABELS MENU...N.."
. . MAILING LABELS MENU
?"...P..".. .P.RE-DEFINED FORMAT O
R".<.R..". .D.EFINE NEW FORMAT".^.T
..". .C.HANGE LABEL SIZE"...V.."..
.E.XIT TO MAIN PROGRAM OR"...X..".
.R.EPORT/LISTING PROGRAM".K.Z..".
.Q.UIT PROGRAM"...\..".. . PRES
S THE APPROPRIATE KEY "...^..C$:.C
$."".1118.".`..C$."P".1220.:.B..C$."C"..
1280:.1102.R.D..C$."E"..4: 4:.1012.J.F..
C$."R"..4: 4:.1016.{.H..C$."D".1136...J.
.C$."Q"..4: 4:.1022...L..1118...N.. -- M
AILING LIST FORMAT...P..". . MAIL
ING LIST FORMAT "...R..". THI
S FORMAT USES SINGLE ROW LABELS.".E.T.."
EACH LABEL CONTAINS UP TO"T%.1"ROWS.".S.
V.."EACH ROW CAN CONSIST OF 1 TO 3 FIELD
S."...X.."IF THE LENGHT OF MULTIPLE ITEM
S EXCEEDS".S.Z.."."LW"CHARACTERS, SOME D
ATA WILL BE CUTOFF"...|.."..NUMBER OF RO
WS?":."? ...";RW:.".";RW...~..RW.T%.1.
."...":.1148.+....RW.0.1102.W....".CHOOS
E WHICH FIELDS GO IN EACH ROW."......"EN
TER .0. IF ADDITIONAL FIELDS ARE":."NOT
DESIRED.."......N.1.F:.".";N;".";F$(N):.
N.W....J.1.RW:.".....";.25)"ROW";J;"..".
.....L.1.3:..25)".FIELD";L;" 0 ....";ML$
(J,L).8...."...DO YOU WISH TO REVIEW YOU
R FORMAT AND/OR".C...."MAKE CORRECTIONS?
PRESS .Y. OR .N.".W....A$:.A$."".1174.
.....A$."Y".1136......A$."N".1184......1
184.F.... -- SAVE MAILING LABEL FORMAT..
. .."..SAVE FORMAT.? .Y. OR
.N."......A$:.A$."".1186......A$."Y".119
4.*....A$."N".1246.4....1186.W....".SAVE
UNDER WHAT FILE NAME?".|....". ";NF$:.
".";NF$:.NF$."".1102......15,8,15:.15,"S
0:ML] ".NF$:.1316.F....5,8,5,"0:ML] ".NF
$.",S,W":.1316.P....5,RW......I.1.RW:.N.
1.3......5,ML$(I,N):.1316......N......I.
.....5,"EOF":.1316.%... 5: 15./....1246.
R.B.. -- LOAD MAILING LABEL FORMAT.W.D..
"..LOAD FORMAT FROM WHAT FILE?"...F..".
";NF$:.".";NF$:.NF$."".1102.J.H..15,8,1
5:.5,8,5,"0:ML] ".NF$.",S,R":.1316.T.J..
5,RW...L..I.1.RW:.N.1.3...N..5,ML$(I,N):
.1316...P..N...R..I...T.S.ST:.S..0.1240.
).V..5,E$.4.X. 5: 15.>.Z..1170.[.... --
PRINT SAMPLE LABELS......".INSERT SINGLE
ROW TRACTOR FEED LABELS"......".RUN TES
T LABELS TO HELP POSITION LABELS".U...."
..PRESS .T.EST LABEL"......". .C.HO
OSE RECORDS"......A$:.A$."".1254......A$
."C".1040.*....A$."T".1254.T....I.1.RW:.
J.1.LW:.4,"*";:.J:.4,B1$;:.I.N....I.1.T%
.RW:.4,B1$;:.I.X....1246...... -- PRINT
LABELS.G....J.1.RW:F1.E(ML$(J,1)):F2.E(M
L$(J,2)):F3.E(ML$(J,3))......4,H(REC$(K%
(I),F1).B$.REC$(K%(I),F2).B$.REC$(K%(I),
F3),LW)......J.(....S.1.T%.RW:.4,B1$;:.S
.......I.... -- CHOOSE LABEL SIZE.Z...."
. . LABEL SIZE
."......". .S.TANDARD - 5 ROWS PER LA
BEL".L...." 15/16 INCH BY 3 1/2 INC
HES"......". .L.ARGE - 8 ROWS PER
LABEL"......" 1 7/16 INCH BY 3 1/2
INCHES".M....". .O.THER - CUSTOM L
ABEL SIZE OR".W...." NUMBER OF CHAR
ACTERS PER ROW"......".. NOTE: LABELS AR
E SEPARATED BY ONE ROW".Q...." 32 CHARAC
TERS PER ROW IS STANDARD"......". .
PRESS THE APPROPRIATE KEY "......
C$:.C$."".1300.)....C$."S".T%.6:..<....C
$."L".T%.9:..M....C$."O".1310.W....1300.
.....". ENTER NUMBER OF ROWS ON LABEL";T
%:RW.T%:T%.T%.1... .." ENTER # OF CHARAC
TERS PER ROW";LW:..T.".. -- DISK ERROR C
HECK...$..15,EN,EM$,ET,ES:.EN.20.....&..
". .DISK ERROR."EN"., "EM$","ET".,"ES.H.
(..". PRESS .ANY KEY. TO RETURN TO MENU"
.\.*..A$:.A$."".1322.M.,. 5: 15:.1102...
> CLICK IMAGE PREVIEW FOR FULL MODAL