home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / labels.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  29 lines
  1. 0 'CLUB 100 Library, Modem 415-939-1246
  2. 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
  3. 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
  4. 10 MAXFILES=2:DEFINTA-Z:DEFSNGW
  5. 20 UP=1:LM=1:CL=35:LN=6:SP$=":":PF$="LPT:"
  6. 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"
  7. 40 ONERRORGOTO220:OPENDF$FORINPUTAS1:ONERRORGOTO0:CLS:PRINT"Output device (D="PF$")";:INPUTPF$:ONERRORGOTO220:OPENPF$FOROUTPUTAS2:ONERRORGOTO0
  8. 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?"
  9. 60 IN$=INPUT$(1):IFIN$="C"ORIN$="c"THEN110
  10. 70 IFIN$="P"ORIN$="p"THEN130
  11. 80 IFIN$="S"ORIN$="s"THEN140
  12. 90 IFIN$="M"ORIN$="m"ORIN$=CHR$(27)THENMENU
  13. 100 GOTO60
  14. 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
  15. 120 PRINT"Labels across (D="STR$(UP)")";:INPUTUP:PRINT"Lines per label (D="STR$(LN)")";:INPUTLN:GOTO50
  16. 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
  17. 140 IFNOTDMTHENDIMDA$(UP,LN):DM=-1
  18. 150 PR$=STRING$(CL,32):SK=0:EF=0:CLS:GOSUB250
  19. 160 FORI=0TOUP-1:ONERRORGOTO240:IFNOTEFANDNOTSKTHENLINEINPUT#1,ST$ELSEST$=""
  20. 170 ONERRORGOTO0:IFST$="SKIP"THENST$="":SK=-1
  21. 180 ST$=ST$+STRING$(LN,SP$):FORJ=0TOLN-1:K=INSTR(ST$,SP$):IFK>1THENDA$(I,J)=LEFT$(ST$,K-1)ELSEDA$(I,J)=""
  22. 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
  23. 200 IFNOTEFGOTO160
  24. 210 CLOSE1:OPENDF$FORINPUTAS1:GOTO50
  25. 220 RESUME230
  26. 230 PRINTRV$"Error:"PV$" "DF$" not found."INPUT$(1):MENU
  27. 240 EF=-1:ST$="":RESUMENEXT
  28. 250 PRINTRV$"Press any key when the printer's ready"PV$INPUT$(1):RETURN
  29.