0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8845 VOICE 2 CLS:PRINT:PRINTTAB(10)"HOME-BREW PRINTER" 5 PRINT:PRINT" Use the '«' symbol for paragraph divi-sions. (Not return.) Tab indentations if desired. (Not spaces.) Tab before '«' for accidental line feeds.":FORF=1TO1200:NEXT 10 'By Russ Hall 11 'For Tandy DMP-105 12 'Makes doublestrike printouts 13 'No other formatting needed 14 'For return add, margins, paragraphs 20 CLS:PRINT:PRINT" IS THE PRINTER ON?" 30 LPRINTCHR$(27);CHR$(21)' turns off line feeds 40 CLEAR500:DEFINT A-Z 45 CLS:FILES 50 INPUT"Which file to print";F$ 55 PRINT:INPUT"Left margin";LM 56 PRINT"Double LF on paragraphs?" 57 G$=INKEY$:IFG$=""THEN57 58 IFG$="N"ORG$="n"THENU=12:GOTO60 59 U=24' Twelfths of inches LF 60 B$=STRING$(58-LM,32)+"1380 Diane Drive":GOSUB3000' insert own return add. 62 B$=B$+"Salt Lake City, UT":GOSUB3000 64 B$=B$+DATE$+" 84123":GOSUB3000 66 B$="" 75 OPEN F$FOR INPUTAS1 80 C$="":IFEOF(1)THEN500 90 C$=INPUT$(1,1):IFC$=" "THENC$="":GOTO90 92 IFC$=CHR$(9)THENR=64 ELSE R=70 95 C$=STRING$(LM,32)+C$ 100 FORA=1TOLM*2-RSTEP-1 110 IFEOF(1)THEN500 120 A$=INPUT$(1,1):B$=B$+A$ 130 IFA$="«"THEN1000 135 NEXT 140 FORA=1TO10 145 IFEOF(1)THEN500 150 A$=INPUT$(1,1):B$=B$+A$:IFA$=" "THEN2000 160 IFA$="«"THEN1000 170 NEXT 180 GOTO80 500 ONERRORGOTO600:B$=LEFT$(B$,(LEN(B$)-1)):LPRINTC$;B$:LPRINTC$;B$ 600 PRINT:PRINT" Print another?" 602 K$=INKEY$:IFK$=""THEN602 604 IFK$="Y"ORK$="y"THENLPRINTCHR$(27);CHR$(90);CHR$(12):GOTO45 610 LPRINTCHR$(27);CHR$(22):MENU 1000 B$=LEFT$(B$,LEN(B$)-1):LPRINTC$;B$:LPRINTC$;B$ 1010 LPRINTCHR$(27);CHR$(90);CHR$(U):B$="":GOTO80 2000 LPRINTC$;B$:LPRINTC$;B$ 2010 LPRINTCHR$(27);CHR$(90);CHR$(12):B$="":GOTO80 3000 LPRINTB$:LPRINTB$:LPRINTCHR$(27);CHR$(90);CHR$(12):B$=STRING$(58-LM,32):RETURN