0 'CLUB 100 Library, Modem 415-939-1246
1 'LABELS.BA   Alan L. Zeichick, from      Portable 100 (Sept 1987), pp. 54-58.    Prep. for Club 100 by Chia-Chi Chao,    08/10/88
2 'This program prints multiple-up         labels.  Each line in the input file    contains one record.  Fields are        separated with colons.  For example:    Name:123 Street:City, State 12345
10 MAXFILES=2:DEFINTA-Z:DEFSNGW
20 UP=1:LM=1:CL=35:LN=6:SP$=":":PF$="LPT:"
30 RV$=CHR$(27)+"p":PV$=CHR$(27)+"q":DM=0:CLS:PRINTRV$LEFT$("Portable 100 Label-Master"+STRING$(40,32),39)PV$:FILES:PRINT:LINEINPUT"Label data file? ";DF$:IFINSTR(DF$,".")=0THENDF$=DF$+".DO"
40 ONERRORGOTO220:OPENDF$FORINPUTAS1:ONERRORGOTO0:CLS:PRINT"Output device (D="PF$")";:INPUTPF$:ONERRORGOTO220:OPENPF$FOROUTPUTAS2:ONERRORGOTO0
50 CLS:PRINT"Do you wish to:","   "RV$"C"PV$" Change parameter values,","   "RV$"P"PV$" Print an alignment pattern,","   "RV$"S"PV$" Start printing labels, or","   "RV$"M"PV$" Main Menu?"
60 IN$=INPUT$(1):IFIN$="C"ORIN$="c"THEN110
70 IFIN$="P"ORIN$="p"THEN130
80 IFIN$="S"ORIN$="s"THEN140
90 IFIN$="M"ORIN$="m"ORIN$=CHR$(27)THENMENU
100 GOTO60
110 CLS:PRINTRV$"Press return to keep defaults:"PV$:PRINT"Absolute left margin (D="STR$(LM)")";:INPUTLM:PRINT"Chars per label (D="STR$(CL)")";:INPUTCL:IFDMTHEN50
120 PRINT"Labels across (D="STR$(UP)")";:INPUTUP:PRINT"Lines per label (D="STR$(LN)")";:INPUTLN:GOTO50
130 CLS:GOSUB250:FORJ=0TOLN-2:PRINT#2,STRING$(LM,32);:FORI=0TOUP-1:PRINT#2,STRING$(CL-2,88)+"  ";:NEXT:PRINT#2,"":NEXT:PRINT#2,"":GOTO50
140 IFNOTDMTHENDIMDA$(UP,LN):DM=-1
150 PR$=STRING$(CL,32):SK=0:EF=0:CLS:GOSUB250
160 FORI=0TOUP-1:ONERRORGOTO240:IFNOTEFANDNOTSKTHENLINEINPUT#1,ST$ELSEST$=""
170 ONERRORGOTO0:IFST$="SKIP"THENST$="":SK=-1
180 ST$=ST$+STRING$(LN,SP$):FORJ=0TOLN-1:K=INSTR(ST$,SP$):IFK>1THENDA$(I,J)=LEFT$(ST$,K-1)ELSEDA$(I,J)=""
190 ST$=MID$(ST$,K+1):NEXT:NEXT:ST$="":FORJ=0TOLN-1:PRINT#2,STRING$(LM,32);:FORI=0TOUP-1:PRINT#2,LEFT$(DA$(I,J)+PR$,CL);:NEXT:PRINT#2,"":NEXT:IFSKTHENFORJ=0TOLN-1:PRINT#2,"":NEXT:SK=0
200 IFNOTEFGOTO160
210 CLOSE1:OPENDF$FORINPUTAS1:GOTO50
220 RESUME230
230 PRINTRV$"Error:"PV$" "DF$" not found."INPUT$(1):MENU
240 EF=-1:ST$="":RESUMENEXT
250 PRINTRV$"Press any key when the printer's ready"PV$INPUT$(1):RETURN