1000 REM-DATAFILE 2.6 SUBPROGRAM DFMAIL BY MIKE KONSHAK (C)1983
1002 REM-FOR 1525E, MPS801, GEMINI 10X, OKIDATA 92A, EPSON RX80 AND OTHERS
1004 IFT%=0THENT%=6
1006 IFLW=0THENLW=32
1008 OPEN4,4:B$=CHR$(32):B1$=CHR$(10):CR$=CHR$(13):GOSUB1280:GOTO1102
1010 REM----LOAD SUBPROGRAMS
1012 PRINT"[147]       LOADING MAIN PROGRAM"
1014 LOAD"DATAFILE",8
1016 PRINT"[147]  LOADING REPORT/LISTING SUBPROGRAM"
1018 LOAD"DFREPORT",8
1020 REM----QUIT ROUTINE
1022 PRINT"[147]QUITTING NOW WILL ERASE CURRENT DATA"
1024 PRINT"ARE YOU SURE YOU WANT TO QUIT?":PRINT" Y[146] OR N[146] ?
1026 [161]A$:[139]A$[178]"" [167]1026
1028 [139]A$[178]"N"[167]1102
1030 [139]A$[178]"Y"[167]1034
1032 [137]1026
1034 [153]"LOADSUBPROGRAM TERMINATED"
1036 [153]"DATAFILEWAIT BY MIKE KONSHAK (C)1983":[128]
1038 [143] ----SEARCH ROUTINES
1040 [153]"LOAD            PRINT OPTIONS MENU        "
1042 [153]"    AWAITLL RECORDS IN FILE
1044 PRINT"    S[146]ELECT INDIVIDUAL RECORD
1046 [153]"    FWAITIND RECORDS WITH COMMON FIELDS
1048 PRINT"    E[146]XIT TO MAIN MENU
1050 [153]"       PRESS THE APPROPRIATE KEY       "
1052 [161]C$:[139]C$[178]"" [167]1052
1054 [139]C$[178]"A"[167]1098
1056 [139]C$[178]"S"[167]1066
1058 [139]C$[178]"F"[167]1074
1060 [139]C$[178]"E"[167]1102
1062 [137]1052
1064 [143]----SELECT INDIVIDUAL RECORD
1066 [133]"PRINT WHICH RECORD";I$:I[178][197](I$)
1068 [139]I[177]X[167][153]"NO SUCH RECORD EXISTS, TRY AGAINONONON":[137]1066
1070 [141]1268:[137]1040
1072 [143]----FIND COMMON RECORDS
1074 [153]"LOAD     FIND RECORDS WITH COMMON ITEMS    "
1076 [129] N[178]1[164]F:[153]" ";N;"WAIT ";F$(N):[130]N
1078 [133]"WHICH FIELD IS TO BE SEARCHED";SF
1080 [139]SF[179]0[176]SF[177]F [167][153]"ONONON":[137]1078
1082 [153]"ENTER COMMON ITEMWAIT ":[153]"(THE ENTIRE STRING IS NOT REQUIRED)"
1084 [153]"";F$(SF);"WAIT ";:[133]T$
1086 [129]I[178]1[164]X
1088 [153]"SEARCHING RECORD";I;"ONON"
1090 [139]T$[178][200](REC$(K%(I),SF),[195](T$))[167][141]1268
1092 [130]I
1094 [137]1040
1096 [143]----PRINT ALL RECORDS
1098 [153]"LOAD":[129]I[178]1[164]X:[153]"ON PRINTING RECORD #";I:[141]1268:[130]I:[137]1040
1100 [143]----MAILING LABELS MENU
1102 [153]"LOAD         MAILING LABELS MENU           "
1104 [153]"      PWAITRE-DEFINED FORMAT OR"
1106 [153]"      DWAITEFINE NEW FORMAT"
1108 [153]"      CWAITHANGE LABEL SIZE"
1110 [153]"      EWAITXIT TO MAIN PROGRAM OR"
1112 [153]"      RWAITEPORT/LISTING PROGRAM"
1114 [153]"      QWAITUIT PROGRAM"
1116 [153]"       PRESS THE APPROPRIATE KEY       "
1118 [161]C$:[139]C$[178]"" [167]1118
1120 [139]C$[178]"P"[167]1220
1122 [139]C$[178]"C"[167][141]1280:[137]1102
1124 [139]C$[178]"E"[167][152]4:[160]4:[137]1012
1126 [139]C$[178]"R"[167][152]4:[160]4:[137]1016
1128 [139]C$[178]"D"[167]1136
1130 [139]C$[178]"Q"[167][152]4:[160]4:[137]1022
1132 [137]1118
1134 [143]------MAILING LIST FORMAT
1136 [153]"LOAD         MAILING LIST FORMAT           "
1138 [153]"  THIS FORMAT USES SINGLE ROW LABELS.
1140 PRINT"EACH LABEL CONTAINS UP TO"T%-1" ROWS.
1142 [153]"EACH ROW CAN CONSIST OF 1 TO 3 FIELDS.
1144 PRINT"IF THE LENGTH OF MULTIPLE ITEMS EXCEEDS
1146 [153]"CMD"LW"CHARACTERS, SOME DATA WILL BE CUTOFF"
1148 [153]"NUMBER OF ROWS?":[153]"?   CMDCMDCMD";RW:[133]"ON";RW
1150 [139]RW[177]T%[171]1[167][153]"ONONON":[137]1148
1152 [139]RW[178]0[167]1102
1154 [153]"LOADCHOOSE WHICH FIELDS GO IN EACH ROW"
1156 [153]"ENTER 0WAIT IF ADDITIONAL FIELDS ARE":[153]"NOT DESIRED."
1158 [129]N[178]1[164]F:[153]"";N;"WAIT ";F$(N):[130]N
1160 [129] J[178]1[164]RW:[153]"";[163]25)"ROW";J;""
1162 [129]L[178]1[164]3:[153][163]25)"ONFIELD";L;" 0 CMDCMD";ML$(J,L)
1164 [153][163]32);"ON";:[133]ML$(J,L)
1166 [130]L
1168 [130]J
1170 [153]"LOADDO YOU WISH TO REVIEW YOUR FORMAT AND/OR"
1172 [153]"MAKE CORRECTIONS?  PRESS YWAIT OR NWAIT"
1174 [161]A$:[139]A$[178]""[167]1174
1176 [139]A$[178]"Y"[167]1136
1178 [139]A$[178]"N"[167]1184
1180 [137]1174
1182 [143]-----SAVE MAILING LABEL FORMAT
1184 [153]"SAVE FORMATWAIT?             YWAIT OR NWAIT"
1186 [161]A$:[139]A$[178]""[167]1186
1188 [139]A$[178]"N"[167]1246
1190 [139]A$[178]"Y"[167]1194
1192 [137]1186
1194 [153]"SAVE UNDER WHAT FILE NAME?"
1196 [153]"  ";NF$:[133]"ON";NF$:[139]NF$[178]""[167]1102
1198 [159]15,8,15:[152]15,"S0:ML] "[170]NF$:[141]1316
1200 [159]5,8,5,"0:ML] "[170]NF$[170]",S,W":[141]1316
1202 [152]5,RW
1204 [129]I[178]1[164]RW:[129]N[178]1[164]3
1206 [152]5,ML$(I,N):[141]1316
1208 [130]N
1210 [130]I
1212 [152]5,"EOF":[141]1316
1214 [160]5:[160]15
1216 [137]1246
1218 [143]-----LOAD MAILING LABEL FORMAT
1220 [153]"LOAD FORMAT FROM WHAT FILE?"
1222 [153]"  ";NF$:[133]"ON";NF$:[139]NF$[178]""[167]1102
1224 [159]15,8,15:[159]5,8,5,"0:ML] "[170]NF$[170]",S,R":[141]1316
1226 [132]5,RW
1228 [129]I[178]1[164]RW:[129]N[178]1[164]3
1230 [132]5,ML$(I,N):[141]1316
1232 [130]N
1234 [130]I
1236 S[178]ST:[139]S[179][177]0[167]1240
1238 [132]5,E$
1240 [160]5:[160]15
1242 [137]1170
1244 [143]-----PRINT SAMPLE LABELS
1246 [153]"LOADINSERT SINGLE ROW TRACTOR FEED LABELS"
1248 [153]"RUN TEST LABELS TO HELP POSITION LABELS
1250 PRINT"PRESS T[146]EST LABEL
1252 [153]"      CWAITHOOSE RECORDS
1254 GETA$:IFA$=""THEN1254
1256 IFA$="C"THEN1040
1258 IFA$<>"T"THEN1254
1260 FORI=1TORW:FORJ=1TOLW:PRINT#4,"*";:NEXTJ:PRINT#4,B1$;:NEXTI
1262 FORI=1TOT%-RW:PRINT#4,B1$;:NEXTI
1264 GOTO1246
1266 REM----PRINT LABELS
1268 FORJ=1TORW:F1=VAL(ML$(J,1)):F2=VAL(ML$(J,2)):F3=VAL(ML$(J,3))
1270 PRINT#4,LEFT$(REC$(K%(I),F1)+B$+REC$(K%(I),F2)+B$+REC$(K%(I),F3),LW)
1272 NEXTJ
1274 FORS=1TOT%-RW:PRINT#4,B1$;:NEXTS
1276 RETURN
1278 REM----CHOOSE LABEL SIZE
1280 PRINT"[147]             LABEL SIZE               [146]"
1282 PRINT"    S[146]TANDARD - 5 ROWS PER LABEL"
1284 PRINT"      15/16 INCH BY 3 1/2 INCHES"
1286 PRINT"    L[146]ARGE    - 8 ROWS PER LABEL"
1288 PRINT"      1 7/16 INCH BY 3 1/2 INCHES"
1290 PRINT"    O[146]THER    - CUSTOM LABEL SIZE OR"
1292 PRINT"      NUMBER OF CHARACTERS PER ROW"
1294 PRINT" NOTE: LABELS ARE SEPARATED BY ONE ROW"
1296 PRINT" 32 CHARACTERS PER ROW IS STANDARD"
1298 PRINT"       PRESS THE APPROPRIATE KEY       "
1300 GETC$:IFC$=""THEN1300
1302 IFC$="S"THENT%=6:RETURN
1304 IFC$="L"THENT%=9:RETURN
1306 IFC$="O"THEN1310
1308 GOTO1300
1310 INPUT" ENTER NUMBER OF ROWS ON LABEL";T%:RW=T%:T%=T%+1
1312 INPUT" ENTER # OF CHARACTERS PER ROW";LW:RETURN
1314 REM----DISK ERROR CHECK
1316 INPUT#15,EN,EM$,ET,ES:IFEN<20THENRETURN
1318 PRINT" DISK ERROR[146]"EN"[157], "EM$","ET"[157],"ES
1320 PRINT" PRESS ANY KEY[146] TO RETURN TO MENU"
1322 GETA$:IFA$=""THEN1322
1324 CLOSE5:CLOSE15:GOTO1102