DFMAIL
FILE INFORMATION
FILENAME(S): DFMAIL
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 17:23:58
APPEARS ON: 1 disk(s)
FILE HASH
b726d99951e83421561df89b4abeb37225a2d0e41dfe02c9a97b9ba2f62cde49
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ULTILITIES | DFMAIL | PRG | Quetzal & Style | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3E 08 E8 03 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 4D 41 49 4C 20 42 59 20 4D 49 4B 45 20 4B |DFMAIL BY MIKE K| 00000030: 4F 4E 53 48 41 4B 20 28 43 29 31 39 38 33 00 86 |ONSHAK (C)1983..| 00000040: 08 EA 03 8F 2D 46 4F 52 20 31 35 32 35 45 2C 20 |....-FOR 1525E, | 00000050: 4D 50 53 38 30 31 2C 20 47 45 4D 49 4E 49 20 31 |MPS801, GEMINI 1| 00000060: 30 58 2C 20 4F 4B 49 44 41 54 41 20 39 32 41 2C |0X, OKIDATA 92A,| 00000070: 20 45 50 53 4F 4E 20 52 58 38 30 20 41 4E 44 20 | EPSON RX80 AND | 00000080: 4F 54 48 45 52 53 00 95 08 EC 03 8B 54 25 B2 30 |OTHERS......T%.0| 00000090: A7 54 25 B2 36 00 A5 08 EE 03 8B 4C 57 B2 30 A7 |.T%.6......LW.0.| 000000A0: 4C 57 B2 33 32 00 D7 08 F0 03 9F 34 2C 34 3A 42 |LW.32......4,4:B| 000000B0: 24 B2 C7 28 33 32 29 3A 42 31 24 B2 C7 28 31 30 |$..(32):B1$..(10| 000000C0: 29 3A 43 52 24 B2 C7 28 31 33 29 3A 8D 31 32 38 |):CR$..(13):.128| 000000D0: 30 3A 89 31 31 30 32 00 F1 08 F2 03 8F 2D 2D 2D |0:.1102......---| 000000E0: 2D 4C 4F 41 44 20 53 55 42 50 52 4F 47 52 41 4D |-LOAD SUBPROGRAM| 000000F0: 53 00 17 09 F4 03 99 22 93 11 11 20 20 20 20 20 |S......"... | 00000100: 20 20 4C 4F 41 44 49 4E 47 20 4D 41 49 4E 20 50 | LOADING MAIN P| 00000110: 52 4F 47 52 41 4D 22 00 29 09 F6 03 93 22 44 41 |ROGRAM".)...."DA| 00000120: 54 41 46 49 4C 45 22 2C 38 00 57 09 F8 03 99 22 |TAFILE",8.W...."| 00000130: 93 11 11 20 20 4C 4F 41 44 49 4E 47 20 52 45 50 |... LOADING REP| 00000140: 4F 52 54 2F 4C 49 53 54 49 4E 47 20 53 55 42 50 |ORT/LISTING SUBP| 00000150: 52 4F 47 52 41 4D 22 00 69 09 FA 03 93 22 44 46 |ROGRAM".i...."DF| 00000160: 52 45 50 4F 52 54 22 2C 38 00 7F 09 FC 03 8F 2D |REPORT",8......-| 00000170: 2D 2D 2D 51 55 49 54 20 52 4F 55 54 49 4E 45 00 |---QUIT ROUTINE.| 00000180: AE 09 FE 03 99 22 93 11 11 51 55 49 54 54 49 4E |....."...QUITTIN| 00000190: 47 20 4E 4F 57 20 57 49 4C 4C 20 45 52 41 53 45 |G NOW WILL ERASE| 000001A0: 20 43 55 52 52 45 4E 54 20 44 41 54 41 22 00 E7 | CURRENT DATA"..| 000001B0: 09 00 04 99 22 11 41 52 45 20 59 4F 55 20 53 55 |....".ARE YOU SU| 000001C0: 52 45 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 51 |RE YOU WANT TO Q| 000001D0: 55 49 54 3F 22 3A 99 22 11 11 20 12 59 92 20 4F |UIT?":.".. .Y. O| 000001E0: 52 20 12 4E 92 20 3F 00 FC 09 02 04 A1 41 24 3A |R .N. ?......A$:| 000001F0: 8B 41 24 B2 22 22 20 A7 31 30 32 36 00 0D 0A 04 |.A$."" .1026....| 00000200: 04 8B 41 24 B2 22 4E 22 A7 31 31 30 32 00 1E 0A |..A$."N".1102...| 00000210: 06 04 8B 41 24 B2 22 59 22 A7 31 30 33 34 00 28 |...A$."Y".1034.(| 00000220: 0A 08 04 89 31 30 32 36 00 48 0A 0A 04 99 22 93 |....1026.H....".| 00000230: 11 11 53 55 42 50 52 4F 47 52 41 4D 20 54 45 52 |..SUBPROGRAM TER| 00000240: 4D 49 4E 41 54 45 44 22 00 75 0A 0C 04 99 22 11 |MINATED".u....".| 00000250: 12 44 41 54 41 46 49 4C 45 92 20 42 59 20 4D 49 |.DATAFILE. BY MI| 00000260: 4B 45 20 4B 4F 4E 53 48 41 4B 20 28 43 29 31 39 |KE KONSHAK (C)19| 00000270: 38 33 22 3A 80 00 8F 0A 0E 04 8F 20 2D 2D 2D 2D |83":....... ----| 00000280: 53 45 41 52 43 48 20 52 4F 55 54 49 4E 45 53 00 |SEARCH ROUTINES.| 00000290: BF 0A 10 04 99 22 93 20 12 20 20 20 20 20 20 20 |.....". . | 000002A0: 20 20 20 20 50 52 49 4E 54 20 4F 50 54 49 4F 4E | PRINT OPTION| 000002B0: 53 20 4D 45 4E 55 20 20 20 20 20 20 20 20 22 00 |S MENU ".| 000002C0: E0 0A 12 04 99 22 11 20 20 20 20 12 41 92 4C 4C |.....". .A.LL| 000002D0: 20 52 45 43 4F 52 44 53 20 49 4E 20 46 49 4C 45 | RECORDS IN FILE| 000002E0: 00 06 0B 14 04 99 22 11 20 20 20 20 12 53 92 45 |......". .S.E| 000002F0: 4C 45 43 54 20 49 4E 44 49 56 49 44 55 41 4C 20 |LECT INDIVIDUAL | 00000300: 52 45 43 4F 52 44 00 33 0B 16 04 99 22 11 20 20 |RECORD.3....". | 00000310: 20 20 12 46 92 49 4E 44 20 52 45 43 4F 52 44 53 | .F.IND RECORDS| 00000320: 20 57 49 54 48 20 43 4F 4D 4D 4F 4E 20 46 49 45 | WITH COMMON FIE| 00000330: 4C 44 53 00 52 0B 18 04 99 22 11 20 20 20 20 12 |LDS.R....". .| 00000340: 45 92 58 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 |E.XIT TO MAIN ME| 00000350: 4E 55 00 83 0B 1A 04 99 22 11 20 12 20 20 20 20 |NU......". . | 00000360: 20 20 50 52 45 53 53 20 54 48 45 20 41 50 50 52 | PRESS THE APPR| 00000370: 4F 50 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 |OPRIATE KEY | 00000380: 20 20 22 00 98 0B 1C 04 A1 43 24 3A 8B 43 24 B2 | "......C$:.C$.| 00000390: 22 22 20 A7 31 30 35 32 00 A9 0B 1E 04 8B 43 24 |"" .1052......C$| 000003A0: B2 22 41 22 A7 31 30 39 38 00 BA 0B 20 04 8B 43 |."A".1098... ..C| 000003B0: 24 B2 22 53 22 A7 31 30 36 36 00 CB 0B 22 04 8B |$."S".1066..."..| 000003C0: 43 24 B2 22 46 22 A7 31 30 37 34 00 DC 0B 24 04 |C$."F".1074...$.| 000003D0: 8B 43 24 B2 22 45 22 A7 31 31 30 32 00 E6 0B 26 |.C$."E".1102...&| 000003E0: 04 89 31 30 35 32 00 08 0C 28 04 8F 2D 2D 2D 2D |..1052...(..----| 000003F0: 53 45 4C 45 43 54 20 49 4E 44 49 56 49 44 55 41 |SELECT INDIVIDUA| 00000400: 4C 20 52 45 43 4F 52 44 00 2E 0C 2A 04 85 22 11 |L RECORD...*..".| 00000410: 50 52 49 4E 54 20 57 48 49 43 48 20 52 45 43 4F |PRINT WHICH RECO| 00000420: 52 44 22 3B 49 24 3A 49 B2 C5 28 49 24 29 00 64 |RD";I$:I..(I$).d| 00000430: 0C 2C 04 8B 49 B1 58 A7 99 22 4E 4F 20 53 55 43 |.,..I.X.."NO SUC| 00000440: 48 20 52 45 43 4F 52 44 20 45 58 49 53 54 53 2C |H RECORD EXISTS,| 00000450: 20 54 52 59 20 41 47 41 49 4E 91 91 91 22 3A 89 | TRY AGAIN...":.| 00000460: 31 30 36 36 00 74 0C 2E 04 8D 31 32 36 38 3A 89 |1066.t....1268:.| 00000470: 31 30 34 30 00 91 0C 30 04 8F 2D 2D 2D 2D 46 49 |1040...0..----FI| 00000480: 4E 44 20 43 4F 4D 4D 4F 4E 20 52 45 43 4F 52 44 |ND COMMON RECORD| 00000490: 53 00 C4 0C 32 04 99 22 93 11 20 12 20 20 20 20 |S...2..".. . | 000004A0: 46 49 4E 44 20 52 45 43 4F 52 44 53 20 57 49 54 |FIND RECORDS WIT| 000004B0: 48 20 43 4F 4D 4D 4F 4E 20 49 54 45 4D 53 20 20 |H COMMON ITEMS | 000004C0: 20 20 11 22 00 E6 0C 34 04 81 20 4E B2 31 A4 46 | ."...4.. N.1.F| 000004D0: 3A 99 22 20 12 22 3B 4E 3B 22 92 20 22 3B 46 24 |:." .";N;". ";F$| 000004E0: 28 4E 29 3A 82 4E 00 0F 0D 36 04 85 22 11 57 48 |(N):.N...6..".WH| 000004F0: 49 43 48 20 46 49 45 4C 44 20 49 53 20 54 4F 20 |ICH FIELD IS TO | 00000500: 42 45 20 53 45 41 52 43 48 45 44 22 3B 53 46 00 |BE SEARCHED";SF.| 00000510: 2C 0D 38 04 8B 53 46 B3 30 B0 53 46 B1 46 20 A7 |,.8..SF.0.SF.F .| 00000520: 99 22 91 91 91 22 3A 89 31 30 37 38 00 71 0D 3A |."...":.1078.q.:| 00000530: 04 99 22 11 45 4E 54 45 52 20 12 43 4F 4D 4D 4F |..".ENTER .COMMO| 00000540: 4E 20 49 54 45 4D 92 20 22 3A 99 22 11 28 54 48 |N ITEM. ":.".(TH| 00000550: 45 20 45 4E 54 49 52 45 20 53 54 52 49 4E 47 20 |E ENTIRE STRING | 00000560: 49 53 20 4E 4F 54 20 52 45 51 55 49 52 45 44 29 |IS NOT REQUIRED)| 00000570: 22 00 8C 0D 3C 04 99 22 11 12 22 3B 46 24 28 53 |"...<.."..";F$(S| 00000580: 46 29 3B 22 92 20 22 3B 3A 85 54 24 00 97 0D 3E |F);". ";:.T$...>| 00000590: 04 81 49 B2 31 A4 58 00 B7 0D 40 04 99 22 11 53 |..I.1.X...@..".S| 000005A0: 45 41 52 43 48 49 4E 47 20 52 45 43 4F 52 44 22 |EARCHING RECORD"| 000005B0: 3B 49 3B 22 91 91 22 00 DD 0D 42 04 8B 54 24 B2 |;I;".."...B..T$.| 000005C0: C8 28 52 45 43 24 28 4B 25 28 49 29 2C 53 46 29 |.(REC$(K%(I),SF)| 000005D0: 2C C3 28 54 24 29 29 A7 8D 31 32 36 38 00 E4 0D |,.(T$))..1268...| 000005E0: 44 04 82 49 00 EE 0D 46 04 89 31 30 34 30 00 09 |D..I...F..1040..| 000005F0: 0E 48 04 8F 2D 2D 2D 2D 50 52 49 4E 54 20 41 4C |.H..----PRINT AL| 00000600: 4C 20 52 45 43 4F 52 44 53 00 42 0E 4A 04 99 22 |L RECORDS.B.J.."| 00000610: 93 11 22 3A 81 49 B2 31 A4 58 3A 99 22 91 20 50 |..":.I.1.X:.". P| 00000620: 52 49 4E 54 49 4E 47 20 52 45 43 4F 52 44 20 23 |RINTING RECORD #| 00000630: 22 3B 49 3A 8D 31 32 36 38 3A 82 49 3A 89 31 30 |";I:.1268:.I:.10| 00000640: 34 30 00 5F 0E 4C 04 8F 2D 2D 2D 2D 4D 41 49 4C |40._.L..----MAIL| 00000650: 49 4E 47 20 4C 41 42 45 4C 53 20 4D 45 4E 55 00 |ING LABELS MENU.| 00000660: 90 0E 4E 04 99 22 93 20 12 20 20 20 20 20 20 20 |..N..". . | 00000670: 20 4D 41 49 4C 49 4E 47 20 4C 41 42 45 4C 53 20 | MAILING LABELS | 00000680: 4D 45 4E 55 20 20 20 20 20 20 20 20 20 20 20 22 |MENU "| 00000690: 00 B7 0E 50 04 99 22 11 11 20 20 20 20 20 20 12 |...P..".. .| 000006A0: 50 92 52 45 2D 44 45 46 49 4E 45 44 20 46 4F 52 |P.RE-DEFINED FOR| 000006B0: 4D 41 54 20 4F 52 22 00 D9 0E 52 04 99 22 11 20 |MAT OR"...R..". | 000006C0: 20 20 20 20 20 12 44 92 45 46 49 4E 45 20 4E 45 | .D.EFINE NE| 000006D0: 57 20 46 4F 52 4D 41 54 22 00 FB 0E 54 04 99 22 |W FORMAT"...T.."| 000006E0: 11 20 20 20 20 20 20 12 43 92 48 41 4E 47 45 20 |. .C.HANGE | 000006F0: 4C 41 42 45 4C 20 53 49 5A 45 22 00 24 0F 56 04 |LABEL SIZE".$.V.| 00000700: 99 22 11 11 20 20 20 20 20 20 12 45 92 58 49 54 |.".. .E.XIT| 00000710: 20 54 4F 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D | TO MAIN PROGRAM| 00000720: 20 4F 52 22 00 4B 0F 58 04 99 22 11 20 20 20 20 | OR".K.X..". | 00000730: 20 20 12 52 92 45 50 4F 52 54 2F 4C 49 53 54 49 | .R.EPORT/LISTI| 00000740: 4E 47 20 50 52 4F 47 52 41 4D 22 00 68 0F 5A 04 |NG PROGRAM".h.Z.| 00000750: 99 22 11 20 20 20 20 20 20 12 51 92 55 49 54 20 |.". .Q.UIT | 00000760: 50 52 4F 47 52 41 4D 22 00 9A 0F 5C 04 99 22 11 |PROGRAM"...\..".| 00000770: 11 20 12 20 20 20 20 20 20 50 52 45 53 53 20 54 |. . PRESS T| 00000780: 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B |HE APPROPRIATE K| 00000790: 45 59 20 20 20 20 20 20 20 22 00 AF 0F 5E 04 A1 |EY "...^..| 000007A0: 43 24 3A 8B 43 24 B2 22 22 20 A7 31 31 31 38 00 |C$:.C$."" .1118.| 000007B0: C0 0F 60 04 8B 43 24 B2 22 50 22 A7 31 32 32 30 |..`..C$."P".1220| 000007C0: 00 D8 0F 62 04 8B 43 24 B2 22 43 22 A7 8D 31 32 |...b..C$."C"..12| 000007D0: 38 30 3A 89 31 31 30 32 00 F0 0F 64 04 8B 43 24 |80:.1102...d..C$| 000007E0: B2 22 45 22 A7 98 34 3A A0 34 3A 89 31 30 31 32 |."E"..4:.4:.1012| 000007F0: 00 08 10 66 04 8B 43 24 B2 22 52 22 A7 98 34 3A |...f..C$."R"..4:| 00000800: A0 34 3A 89 31 30 31 36 00 19 10 68 04 8B 43 24 |.4:.1016...h..C$| 00000810: B2 22 44 22 A7 31 31 33 36 00 31 10 6A 04 8B 43 |."D".1136.1.j..C| 00000820: 24 B2 22 51 22 A7 98 34 3A A0 34 3A 89 31 30 32 |$."Q"..4:.4:.102| 00000830: 32 00 3B 10 6C 04 89 31 31 31 38 00 5A 10 6E 04 |2.;.l..1118.Z.n.| 00000840: 8F 2D 2D 2D 2D 2D 2D 4D 41 49 4C 49 4E 47 20 4C |.------MAILING L| 00000850: 49 53 54 20 46 4F 52 4D 41 54 00 8B 10 70 04 99 |IST FORMAT...p..| 00000860: 22 93 20 12 20 20 20 20 20 20 20 20 4D 41 49 4C |". . MAIL| 00000870: 49 4E 47 20 4C 49 53 54 20 46 4F 52 4D 41 54 20 |ING LIST FORMAT | 00000880: 20 20 20 20 20 20 20 20 20 20 22 00 B8 10 72 04 | "...r.| 00000890: 99 22 11 20 20 54 48 49 53 20 46 4F 52 4D 41 54 |.". THIS FORMAT| 000008A0: 20 55 53 45 53 20 53 49 4E 47 4C 45 20 52 4F 57 | USES SINGLE ROW| 000008B0: 20 4C 41 42 45 4C 53 2E 00 E4 10 74 04 99 22 45 | LABELS....t.."E| 000008C0: 41 43 48 20 4C 41 42 45 4C 20 43 4F 4E 54 41 49 |ACH LABEL CONTAI| 000008D0: 4E 53 20 55 50 20 54 4F 22 54 25 AB 31 22 20 52 |NS UP TO"T%.1" R| 000008E0: 4F 57 53 2E 00 11 11 76 04 99 22 45 41 43 48 20 |OWS....v.."EACH | 000008F0: 52 4F 57 20 43 41 4E 20 43 4F 4E 53 49 53 54 20 |ROW CAN CONSIST | 00000900: 4F 46 20 31 20 54 4F 20 33 20 46 49 45 4C 44 53 |OF 1 TO 3 FIELDS| 00000910: 2E 00 3F 11 78 04 99 22 49 46 20 54 48 45 20 4C |..?.x.."IF THE L| 00000920: 45 4E 47 54 48 20 4F 46 20 4D 55 4C 54 49 50 4C |ENGTH OF MULTIPL| 00000930: 45 20 49 54 45 4D 53 20 45 58 43 45 45 44 53 00 |E ITEMS EXCEEDS.| 00000940: 70 11 7A 04 99 22 9D 22 4C 57 22 43 48 41 52 41 |p.z.."."LW"CHARA| 00000950: 43 54 45 52 53 2C 20 53 4F 4D 45 20 44 41 54 41 |CTERS, SOME DATA| 00000960: 20 57 49 4C 4C 20 42 45 20 43 55 54 4F 46 46 22 | WILL BE CUTOFF"| 00000970: 00 9F 11 7C 04 99 22 11 12 4E 55 4D 42 45 52 20 |...|.."..NUMBER | 00000980: 4F 46 20 52 4F 57 53 3F 22 3A 99 22 3F 20 20 20 |OF ROWS?":."? | 00000990: 9D 9D 9D 22 3B 52 57 3A 85 22 91 22 3B 52 57 00 |...";RW:.".";RW.| 000009A0: B9 11 7E 04 8B 52 57 B1 54 25 AB 31 A7 99 22 91 |..~..RW.T%.1..".| 000009B0: 91 91 22 3A 89 31 31 34 38 00 C8 11 80 04 8B 52 |..":.1148......R| 000009C0: 57 B2 30 A7 31 31 30 32 00 F3 11 82 04 99 22 93 |W.0.1102......".| 000009D0: 43 48 4F 4F 53 45 20 57 48 49 43 48 20 46 49 45 |CHOOSE WHICH FIE| 000009E0: 4C 44 53 20 47 4F 20 49 4E 20 45 41 43 48 20 52 |LDS GO IN EACH R| 000009F0: 4F 57 22 00 2E 12 84 04 99 22 45 4E 54 45 52 20 |OW"......"ENTER | 00000A00: 12 30 92 20 49 46 20 41 44 44 49 54 49 4F 4E 41 |.0. IF ADDITIONA| 00000A10: 4C 20 46 49 45 4C 44 53 20 41 52 45 22 3A 99 22 |L FIELDS ARE":."| 00000A20: 4E 4F 54 20 44 45 53 49 52 45 44 2E 11 22 00 4E |NOT DESIRED..".N| 00000A30: 12 86 04 81 4E B2 31 A4 46 3A 99 22 12 22 3B 4E |....N.1.F:.".";N| 00000A40: 3B 22 92 20 22 3B 46 24 28 4E 29 3A 82 4E 00 75 |;". ";F$(N):.N.u| 00000A50: 12 88 04 81 20 4A B2 31 A4 52 57 3A 99 22 13 11 |.... J.1.RW:."..| 00000A60: 11 11 11 22 3B A3 32 35 29 22 52 4F 57 22 3B 4A |...";.25)"ROW";J| 00000A70: 3B 22 11 11 22 00 A3 12 8A 04 81 4C B2 31 A4 33 |;".."......L.1.3| 00000A80: 3A 99 A3 32 35 29 22 91 46 49 45 4C 44 22 3B 4C |:..25)".FIELD";L| 00000A90: 3B 22 20 30 20 9D 9D 9D 9D 22 3B 4D 4C 24 28 4A |;" 0 ....";ML$(J| 00000AA0: 2C 4C 29 00 BC 12 8C 04 99 A3 33 32 29 3B 22 91 |,L).......32);".| 00000AB0: 22 3B 3A 85 4D 4C 24 28 4A 2C 4C 29 00 C3 12 8E |";:.ML$(J,L)....| 00000AC0: 04 82 4C 00 CA 12 90 04 82 4A 00 FD 12 92 04 99 |..L......J......| 00000AD0: 22 93 11 11 44 4F 20 59 4F 55 20 57 49 53 48 20 |"...DO YOU WISH | 00000AE0: 54 4F 20 52 45 56 49 45 57 20 59 4F 55 52 20 46 |TO REVIEW YOUR F| 00000AF0: 4F 52 4D 41 54 20 41 4E 44 2F 4F 52 22 00 28 13 |ORMAT AND/OR".(.| 00000B00: 94 04 99 22 4D 41 4B 45 20 43 4F 52 52 45 43 54 |..."MAKE CORRECT| 00000B10: 49 4F 4E 53 3F 20 20 50 52 45 53 53 20 12 59 92 |IONS? PRESS .Y.| 00000B20: 20 4F 52 20 12 4E 92 22 00 3C 13 96 04 A1 41 24 | OR .N.".<....A$| 00000B30: 3A 8B 41 24 B2 22 22 A7 31 31 37 34 00 4D 13 98 |:.A$."".1174.M..| 00000B40: 04 8B 41 24 B2 22 59 22 A7 31 31 33 36 00 5E 13 |..A$."Y".1136.^.| 00000B50: 9A 04 8B 41 24 B2 22 4E 22 A7 31 31 38 34 00 68 |...A$."N".1184.h| 00000B60: 13 9C 04 89 31 31 37 34 00 8C 13 9E 04 8F 2D 2D |....1174......--| 00000B70: 2D 2D 2D 53 41 56 45 20 4D 41 49 4C 49 4E 47 20 |---SAVE MAILING | 00000B80: 4C 41 42 45 4C 20 46 4F 52 4D 41 54 00 BA 13 A0 |LABEL FORMAT....| 00000B90: 04 99 22 11 12 53 41 56 45 20 46 4F 52 4D 41 54 |.."..SAVE FORMAT| 00000BA0: 92 3F 20 20 20 20 20 20 20 20 20 20 20 20 20 12 |.? .| 00000BB0: 59 92 20 4F 52 20 12 4E 92 22 00 CE 13 A2 04 A1 |Y. OR .N."......| 00000BC0: 41 24 3A 8B 41 24 B2 22 22 A7 31 31 38 36 00 DF |A$:.A$."".1186..| 00000BD0: 13 A4 04 8B 41 24 B2 22 4E 22 A7 31 32 34 36 00 |....A$."N".1246.| 00000BE0: F0 13 A6 04 8B 41 24 B2 22 59 22 A7 31 31 39 34 |.....A$."Y".1194| 00000BF0: 00 FA 13 A8 04 89 31 31 38 36 00 1D 14 AA 04 99 |......1186......| 00000C00: 22 11 53 41 56 45 20 55 4E 44 45 52 20 57 48 41 |".SAVE UNDER WHA| 00000C10: 54 20 46 49 4C 45 20 4E 41 4D 45 3F 22 00 42 14 |T FILE NAME?".B.| 00000C20: AC 04 99 22 11 20 20 22 3B 4E 46 24 3A 85 22 91 |...". ";NF$:.".| 00000C30: 22 3B 4E 46 24 3A 8B 4E 46 24 B2 22 22 A7 31 31 |";NF$:.NF$."".11| 00000C40: 30 32 00 67 14 AE 04 9F 31 35 2C 38 2C 31 35 3A |02.g....15,8,15:| 00000C50: 98 31 35 2C 22 53 30 3A 4D 4C 5D 20 22 AA 4E 46 |.15,"S0:ML] ".NF| 00000C60: 24 3A 8D 31 33 31 36 00 8C 14 B0 04 9F 35 2C 38 |$:.1316......5,8| 00000C70: 2C 35 2C 22 30 3A 4D 4C 5D 20 22 AA 4E 46 24 AA |,5,"0:ML] ".NF$.| 00000C80: 22 2C 53 2C 57 22 3A 8D 31 33 31 36 00 96 14 B2 |",S,W":.1316....| 00000C90: 04 98 35 2C 52 57 00 A9 14 B4 04 81 49 B2 31 A4 |..5,RW......I.1.| 00000CA0: 52 57 3A 81 4E B2 31 A4 33 00 BF 14 B6 04 98 35 |RW:.N.1.3......5| 00000CB0: 2C 4D 4C 24 28 49 2C 4E 29 3A 8D 31 33 31 36 00 |,ML$(I,N):.1316.| 00000CC0: C6 14 B8 04 82 4E 00 CD 14 BA 04 82 49 00 E0 14 |.....N......I...| 00000CD0: BC 04 98 35 2C 22 45 4F 46 22 3A 8D 31 33 31 36 |...5,"EOF":.1316| 00000CE0: 00 EB 14 BE 04 A0 35 3A A0 31 35 00 F5 14 C0 04 |......5:.15.....| 00000CF0: 89 31 32 34 36 00 19 15 C2 04 8F 2D 2D 2D 2D 2D |.1246......-----| 00000D00: 4C 4F 41 44 20 4D 41 49 4C 49 4E 47 20 4C 41 42 |LOAD MAILING LAB| 00000D10: 45 4C 20 46 4F 52 4D 41 54 00 3E 15 C4 04 99 22 |EL FORMAT.>...."| 00000D20: 11 11 4C 4F 41 44 20 46 4F 52 4D 41 54 20 46 52 |..LOAD FORMAT FR| 00000D30: 4F 4D 20 57 48 41 54 20 46 49 4C 45 3F 22 00 63 |OM WHAT FILE?".c| 00000D40: 15 C6 04 99 22 11 20 20 22 3B 4E 46 24 3A 85 22 |....". ";NF$:."| 00000D50: 91 22 3B 4E 46 24 3A 8B 4E 46 24 B2 22 22 A7 31 |.";NF$:.NF$."".1| 00000D60: 31 30 32 00 91 15 C8 04 9F 31 35 2C 38 2C 31 35 |102......15,8,15| 00000D70: 3A 9F 35 2C 38 2C 35 2C 22 30 3A 4D 4C 5D 20 22 |:.5,8,5,"0:ML] "| 00000D80: AA 4E 46 24 AA 22 2C 53 2C 52 22 3A 8D 31 33 31 |.NF$.",S,R":.131| 00000D90: 36 00 9B 15 CA 04 84 35 2C 52 57 00 AE 15 CC 04 |6......5,RW.....| 00000DA0: 81 49 B2 31 A4 52 57 3A 81 4E B2 31 A4 33 00 C4 |.I.1.RW:.N.1.3..| 00000DB0: 15 CE 04 84 35 2C 4D 4C 24 28 49 2C 4E 29 3A 8D |....5,ML$(I,N):.| 00000DC0: 31 33 31 36 00 CB 15 D0 04 82 4E 00 D2 15 D2 04 |1316......N.....| 00000DD0: 82 49 00 E6 15 D4 04 53 B2 53 54 3A 8B 53 B3 B1 |.I.....S.ST:.S..| 00000DE0: 30 A7 31 32 34 30 00 F0 15 D6 04 84 35 2C 45 24 |0.1240......5,E$| 00000DF0: 00 FB 15 D8 04 A0 35 3A A0 31 35 00 05 16 DA 04 |......5:.15.....| 00000E00: 89 31 31 37 30 00 23 16 DC 04 8F 2D 2D 2D 2D 2D |.1170.#....-----| 00000E10: 50 52 49 4E 54 20 53 41 4D 50 4C 45 20 4C 41 42 |PRINT SAMPLE LAB| 00000E20: 45 4C 53 00 51 16 DE 04 99 22 93 49 4E 53 45 52 |ELS.Q....".INSER| 00000E30: 54 20 53 49 4E 47 4C 45 20 52 4F 57 20 54 52 41 |T SINGLE ROW TRA| 00000E40: 43 54 4F 52 20 46 45 45 44 20 4C 41 42 45 4C 53 |CTOR FEED LABELS| 00000E50: 22 00 80 16 E0 04 99 22 11 52 55 4E 20 54 45 53 |"......".RUN TES| 00000E60: 54 20 4C 41 42 45 4C 53 20 54 4F 20 48 45 4C 50 |T LABELS TO HELP| 00000E70: 20 50 4F 53 49 54 49 4F 4E 20 4C 41 42 45 4C 53 | POSITION LABELS| 00000E80: 00 9B 16 E2 04 99 22 11 11 50 52 45 53 53 20 12 |......"..PRESS .| 00000E90: 54 92 45 53 54 20 4C 41 42 45 4C 00 B9 16 E4 04 |T.EST LABEL.....| 00000EA0: 99 22 11 20 20 20 20 20 20 12 43 92 48 4F 4F 53 |.". .C.HOOS| 00000EB0: 45 20 52 45 43 4F 52 44 53 00 CD 16 E6 04 A1 41 |E RECORDS......A| 00000EC0: 24 3A 8B 41 24 B2 22 22 A7 31 32 35 34 00 DE 16 |$:.A$."".1254...| 00000ED0: E8 04 8B 41 24 B2 22 43 22 A7 31 30 34 30 00 F0 |...A$."C".1040..| 00000EE0: 16 EA 04 8B 41 24 B3 B1 22 54 22 A7 31 32 35 34 |....A$.."T".1254| 00000EF0: 00 1A 17 EC 04 81 49 B2 31 A4 52 57 3A 81 4A B2 |......I.1.RW:.J.| 00000F00: 31 A4 4C 57 3A 98 34 2C 22 2A 22 3B 3A 82 4A 3A |1.LW:.4,"*";:.J:| 00000F10: 98 34 2C 42 31 24 3B 3A 82 49 00 34 17 EE 04 81 |.4,B1$;:.I.4....| 00000F20: 49 B2 31 A4 54 25 AB 52 57 3A 98 34 2C 42 31 24 |I.1.T%.RW:.4,B1$| 00000F30: 3B 3A 82 49 00 3E 17 F0 04 89 31 32 34 36 00 54 |;:.I.>....1246.T| 00000F40: 17 F2 04 8F 2D 2D 2D 2D 50 52 49 4E 54 20 4C 41 |....----PRINT LA| 00000F50: 42 45 4C 53 00 8D 17 F4 04 81 4A B2 31 A4 52 57 |BELS......J.1.RW| 00000F60: 3A 46 31 B2 C5 28 4D 4C 24 28 4A 2C 31 29 29 3A |:F1..(ML$(J,1)):| 00000F70: 46 32 B2 C5 28 4D 4C 24 28 4A 2C 32 29 29 3A 46 |F2..(ML$(J,2)):F| 00000F80: 33 B2 C5 28 4D 4C 24 28 4A 2C 33 29 29 00 CD 17 |3..(ML$(J,3))...| 00000F90: F6 04 98 34 2C C8 28 52 45 43 24 28 4B 25 28 49 |...4,.(REC$(K%(I| 00000FA0: 29 2C 46 31 29 AA 42 24 AA 52 45 43 24 28 4B 25 |),F1).B$.REC$(K%| 00000FB0: 28 49 29 2C 46 32 29 AA 42 24 AA 52 45 43 24 28 |(I),F2).B$.REC$(| 00000FC0: 4B 25 28 49 29 2C 46 33 29 2C 4C 57 29 00 D4 17 |K%(I),F3),LW)...| 00000FD0: F8 04 82 4A 00 EE 17 FA 04 81 53 B2 31 A4 54 25 |...J......S.1.T%| 00000FE0: AB 52 57 3A 98 34 2C 42 31 24 3B 3A 82 53 00 F4 |.RW:.4,B1$;:.S..| 00000FF0: 17 FC 04 8E 00 0F 18 FE 04 8F 2D 2D 2D 2D 43 48 |..........----CH| 00001000: 4F 4F 53 45 20 4C 41 42 45 4C 20 53 49 5A 45 00 |OOSE LABEL SIZE.| 00001010: 40 18 00 05 99 22 93 20 12 20 20 20 20 20 20 20 |@....". . | 00001020: 20 20 20 20 20 4C 41 42 45 4C 20 53 49 5A 45 20 | LABEL SIZE | 00001030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 | ."| 00001040: 00 6A 18 02 05 99 22 11 20 20 20 20 12 53 92 54 |.j....". .S.T| 00001050: 41 4E 44 41 52 44 20 2D 20 35 20 52 4F 57 53 20 |ANDARD - 5 ROWS | 00001060: 50 45 52 20 4C 41 42 45 4C 22 00 92 18 04 05 99 |PER LABEL"......| 00001070: 22 20 20 20 20 20 20 31 35 2F 31 36 20 49 4E 43 |" 15/16 INC| 00001080: 48 20 42 59 20 33 20 31 2F 32 20 49 4E 43 48 45 |H BY 3 1/2 INCHE| 00001090: 53 22 00 BC 18 06 05 99 22 11 20 20 20 20 12 4C |S"......". .L| 000010A0: 92 41 52 47 45 20 20 20 20 2D 20 38 20 52 4F 57 |.ARGE - 8 ROW| 000010B0: 53 20 50 45 52 20 4C 41 42 45 4C 22 00 E5 18 08 |S PER LABEL"....| 000010C0: 05 99 22 20 20 20 20 20 20 31 20 37 2F 31 36 20 |.." 1 7/16 | 000010D0: 49 4E 43 48 20 42 59 20 33 20 31 2F 32 20 49 4E |INCH BY 3 1/2 IN| 000010E0: 43 48 45 53 22 00 13 19 0A 05 99 22 11 20 20 20 |CHES"......". | 000010F0: 20 12 4F 92 54 48 45 52 20 20 20 20 2D 20 43 55 | .O.THER - CU| 00001100: 53 54 4F 4D 20 4C 41 42 45 4C 20 53 49 5A 45 20 |STOM LABEL SIZE | 00001110: 4F 52 22 00 3D 19 0C 05 99 22 20 20 20 20 20 20 |OR".=...." | 00001120: 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 52 41 43 |NUMBER OF CHARAC| 00001130: 54 45 52 53 20 50 45 52 20 52 4F 57 22 00 6D 19 |TERS PER ROW".m.| 00001140: 0E 05 99 22 11 11 20 4E 4F 54 45 3A 20 4C 41 42 |...".. NOTE: LAB| 00001150: 45 4C 53 20 41 52 45 20 53 45 50 41 52 41 54 45 |ELS ARE SEPARATE| 00001160: 44 20 42 59 20 4F 4E 45 20 52 4F 57 22 00 97 19 |D BY ONE ROW"...| 00001170: 10 05 99 22 20 33 32 20 43 48 41 52 41 43 54 45 |..." 32 CHARACTE| 00001180: 52 53 20 50 45 52 20 52 4F 57 20 49 53 20 53 54 |RS PER ROW IS ST| 00001190: 41 4E 44 41 52 44 22 00 C8 19 12 05 99 22 11 20 |ANDARD"......". | 000011A0: 12 20 20 20 20 20 20 50 52 45 53 53 20 54 48 45 |. PRESS THE| 000011B0: 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 | APPROPRIATE KEY| 000011C0: 20 20 20 20 20 20 20 22 00 DC 19 14 05 A1 43 24 | "......C$| 000011D0: 3A 8B 43 24 B2 22 22 A7 31 33 30 30 00 EF 19 16 |:.C$."".1300....| 000011E0: 05 8B 43 24 B2 22 53 22 A7 54 25 B2 36 3A 8E 00 |..C$."S".T%.6:..| 000011F0: 02 1A 18 05 8B 43 24 B2 22 4C 22 A7 54 25 B2 39 |.....C$."L".T%.9| 00001200: 3A 8E 00 13 1A 1A 05 8B 43 24 B2 22 4F 22 A7 31 |:.......C$."O".1| 00001210: 33 31 30 00 1D 1A 1C 05 89 31 33 30 30 00 55 1A |310......1300.U.| 00001220: 1E 05 85 22 11 20 45 4E 54 45 52 20 4E 55 4D 42 |...". ENTER NUMB| 00001230: 45 52 20 4F 46 20 52 4F 57 53 20 4F 4E 20 4C 41 |ER OF ROWS ON LA| 00001240: 42 45 4C 22 3B 54 25 3A 52 57 B2 54 25 3A 54 25 |BEL";T%:RW.T%:T%| 00001250: B2 54 25 AA 31 00 80 1A 20 05 85 22 20 45 4E 54 |.T%.1... .." ENT| 00001260: 45 52 20 23 20 4F 46 20 43 48 41 52 41 43 54 45 |ER # OF CHARACTE| 00001270: 52 53 20 50 45 52 20 52 4F 57 22 3B 4C 57 3A 8E |RS PER ROW";LW:.| 00001280: 00 9A 1A 22 05 8F 2D 2D 2D 2D 44 49 53 4B 20 45 |..."..----DISK E| 00001290: 52 52 4F 52 20 43 48 45 43 4B 00 B8 1A 24 05 84 |RROR CHECK...$..| 000012A0: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A |15,EN,EM$,ET,ES:| 000012B0: 8B 45 4E B3 32 30 A7 8E 00 E3 1A 26 05 99 22 11 |.EN.20.....&..".| 000012C0: 20 12 44 49 53 4B 20 45 52 52 4F 52 92 22 45 4E | .DISK ERROR."EN| 000012D0: 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 22 9D 2C |"., "EM$","ET".,| 000012E0: 22 45 53 00 0E 1B 28 05 99 22 11 20 50 52 45 53 |"ES...(..". PRES| 000012F0: 53 20 12 41 4E 59 20 4B 45 59 92 20 54 4F 20 52 |S .ANY KEY. TO R| 00001300: 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 00 22 |ETURN TO MENU"."| 00001310: 1B 2A 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 33 |.*..A$:.A$."".13| 00001320: 32 32 00 33 1B 2C 05 A0 35 3A A0 31 35 3A 89 31 |22.3.,..5:.15:.1| 00001330: 31 30 32 00 00 00 |102... |
..>....-DATAFILE 2.6 SUBPROGRAM DFMAIL B Y MIKE KONSHAK (C)1983......-FOR 1525E, MPS801, GEMINI 10X, OKIDATA 92A, EPSON R X80 AND OTHERS......T%.0.T%.6......LW.0. LW.32.W....4,4:B$.G(32):B1$.G(10):CR$.G( 13):.1280:.1102......----LOAD SUBPROGRAM S......"... LOADING MAIN PROGRAM". )...."DATAFILE",8.W...."... LOADING REP ORT/LISTING SUBPROGRAM".I...."DFREPORT", 8.....----QUIT ROUTINE......"...QUITTIN G NOW WILL ERASE CURRENT DATA"......".AR E YOU SURE YOU WANT TO QUIT?":.".. .Y. O R .N. ?......A$:.A$."" .1026......A$."N" .1102......A$."Y".1034.(....1026.H....". ..SUBPROGRAM TERMINATED".U...."..DATAFIL E. BY MIKE KONSHAK (C)1983":....... ---- SEARCH ROUTINES......". . PRIN T OPTIONS MENU "......". .A.LL RECORDS IN FILE......". .S.ELECT IND IVIDUAL RECORD.3....". .F.IND RECORDS WITH COMMON FIELDS.R....". .E.XIT TO MAIN MENU......". . PRESS THE APPR OPRIATE KEY "......C$:.C$."" .1052 ......C$."A".1098... ..C$."S".1066.K.".. C$."F".1074...$..C$."E".1102...&..1052.. .(..----SELECT INDIVIDUAL RECORD...*..". PRINT WHICH RECORD";I$:I.E(I$).D.,..I.X. ."NO SUCH RECORD EXISTS, TRY AGAIN...":. 1066.T....1268:.1040...0..----FIND COMMO N RECORDS.D.2..".. . FIND RECORDS WIT H COMMON ITEMS ."...4.. N.1.F:." .";N ;". ";F$(N):.N...6..".WHICH FIELD IS TO BE SEARCHED";SF.,.8..SF.0.SF.F .."...":. 1078.Q.:..".ENTER .COMMON ITEM. ":.".(TH E ENTIRE STRING IS NOT REQUIRED)"...<.." ..";F$(SF);". ";:.T$...>..I.1.X...@..".S EARCHING RECORD";I;".."...B..T$.H(REC$(K %(I),SF),C(T$))..1268...D..I...F..1040.. .H..----PRINT ALL RECORDS.B.J.."..":.I.1 .X:.". PRINTING RECORD #";I:.1268:.I:.10 40._.L..----MAILING LABELS MENU...N..". . MAILING LABELS MENU " ...P..".. .P.RE-DEFINED FORMAT OR". Y.R..". .D.EFINE NEW FORMAT"...T.." . .C.HANGE LABEL SIZE".$.V..".. .E.XIT TO MAIN PROGRAM OR".K.X..". .R.EPORT/LISTING PROGRAM".H.Z..". .Q.UIT PROGRAM"...\..".. . PRESS T HE APPROPRIATE KEY "...^..C$:.C$." " .1118...`..C$."P".1220.X.B..C$."C"..12 80:.1102...D..C$."E"..4: 4:.1012...F..C$ ."R"..4: 4:.1016...H..C$."D".1136.1.J..C $."Q"..4: 4:.1022.;.L..1118.Z.N..------M AILING LIST FORMAT...P..". . MAIL ING LIST FORMAT "...R..". THI S FORMAT USES SINGLE ROW LABELS....T.."E ACH LABEL CONTAINS UP TO"T%.1" ROWS....V .."EACH ROW CAN CONSIST OF 1 TO 3 FIELDS ..?.X.."IF THE LENGTH OF MULTIPLE ITEMS EXCEEDS.P.Z.."."LW"CHARACTERS, SOME DATA WILL BE CUTOFF"...|.."..NUMBER OF ROWS? ":."? ...";RW:.".";RW...~..RW.T%.1..". ..":.1148.H....RW.0.1102......".CHOOSE W HICH FIELDS GO IN EACH ROW"......"ENTER .0. IF ADDITIONAL FIELDS ARE":."NOT DESI RED..".N....N.1.F:.".";N;". ";F$(N):.N.U .... J.1.RW:.".....";.25)"ROW";J;".."... ...L.1.3:..25)".FIELD";L;" 0 ....";ML$(J ,L).......32);".";:.ML$(J,L).C....L.J... .J......"...DO YOU WISH TO REVIEW YOUR F ORMAT AND/OR".(...."MAKE CORRECTIONS? P RESS .Y. OR .N.".<....A$:.A$."".1174.M.. ..A$."Y".1136.^....A$."N".1184.H....1174 ......-----SAVE MAILING LABEL FORMAT... .."..SAVE FORMAT.? .Y. OR .N .".N....A$:.A$."".1186......A$."N".1246. .....A$."Y".1194......1186......".SAVE U NDER WHAT FILE NAME?".B....". ";NF$:.". ";NF$:.NF$."".1102.G....15,8,15:.15,"S0: ML] ".NF$:.1316......5,8,5,"0:ML] ".NF$. ",S,W":.1316......5,RW......I.1.RW:.N.1. 3......5,ML$(I,N):.1316.F....N.M....I... ...5,"EOF":.1316..... 5: 15......1246... B..-----LOAD MAILING LABEL FORMAT.>.D.." ..LOAD FORMAT FROM WHAT FILE?".C.F..". ";NF$:.".";NF$:.NF$."".1102...H..15,8,15 :.5,8,5,"0:ML] ".NF$.",S,R":.1316...J..5 ,RW...L..I.1.RW:.N.1.3.D.N..5,ML$(I,N):. 1316.K.P..N.R.R..I...T.S.ST:.S..0.1240.. .V..5,E$...X. 5: 15...Z..1170.#....----- PRINT SAMPLE LABELS.Q....".INSERT SINGLE ROW TRACTOR FEED LABELS"......".RUN TES T LABELS TO HELP POSITION LABELS......". .PRESS .T.EST LABEL......". .C.HOOS E RECORDS.M....A$:.A$."".1254......A$."C ".1040......A$.."T".1254......I.1.RW:.J. 1.LW:.4,"*";:.J:.4,B1$;:.I.4....I.1.T%.R W:.4,B1$;:.I.>....1246.T....----PRINT LA BELS......J.1.RW:F1.E(ML$(J,1)):F2.E(ML$ (J,2)):F3.E(ML$(J,3)).M....4,H(REC$(K%(I ),F1).B$.REC$(K%(I),F2).B$.REC$(K%(I),F3 ),LW).T....J......S.1.T%.RW:.4,B1$;:.S.. ..........----CHOOSE LABEL SIZE.@....". . LABEL SIZE ." .J....". .S.TANDARD - 5 ROWS PER LABE L"......" 15/16 INCH BY 3 1/2 INCHE S"......". .L.ARGE - 8 ROWS PER LA BEL"......" 1 7/16 INCH BY 3 1/2 IN CHES"......". .O.THER - CUSTOM LAB EL SIZE OR".=...." NUMBER OF CHARAC TERS PER ROW".M....".. NOTE: LABELS ARE SEPARATED BY ONE ROW"......" 32 CHARACTE RS PER ROW IS STANDARD".H....". . P RESS THE APPROPRIATE KEY "......C$ :.C$."".1300......C$."S".T%.6:.......C$. "L".T%.9:.......C$."O".1310......1300.U. ...". ENTER NUMBER OF ROWS ON LABEL";T%: RW.T%:T%.T%.1... .." ENTER # OF CHARACTE RS PER ROW";LW:...."..----DISK ERROR CHE CK...$..15,EN,EM$,ET,ES:.EN.20.....&..". .DISK ERROR."EN"., "EM$","ET".,"ES...(. .". PRESS .ANY KEY. TO RETURN TO MENU"." .*..A$:.A$."".1322.3.,. 5: 15:.1102...
> CLICK IMAGE PREVIEW FOR FULL MODAL