0 'NEWPRT.BA Ed Juge 4/83
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 '<GRPH>p causes forced end of page
3 'Defaults for margins (L,R), print
4 '   title on page 1 (HD$) and line
5 '   spacing (LS) exist in line 30.
6 CLS:CLEAR2000:S=0:FILES:L=20:R=60:HD$="Y":LS=1:C$=STRING$(60,32):LN=0:PG=1:GOSUB10:INPUT".DO file to print  ";N$
7 GOSUB10:INPUT"Margins (L,R)   ";L,R:IFL=0THENL=1
8 L$=STRING$(L-1,32):GOSUB10:INPUT"Line Spacing (1/2)  ";LS:GOSUB10:INPUT"Enter page title";H$
9 GOSUB10:INPUT"Title on Pg.1  (Y/N) ";HD$:OPENN$FORINPUTAS1:GOTO11
10 PRINT@205,C$:PRINT@205,"";:RETURN
11 CLS:IFH$=""THEN PH$=L$+DATE$:GOTO13
12 PH$=STRING$(R-8,32)+DATE$:IFH$<>""THENMID$(PH$,L,(LEN(H$)))=H$
13 IFHD$="Y"ORHD$="y"THENPR$=L$:GOSUB31
14 PR$=L$
15 IFLN>=50THENGOTO29
16 FORJ=LEN(PR$)TOR:  PR$=PR$+INPUT$(1,1):  IFEOF(1)THENCLOSE:EN=1:GOTO24
17   IFRIGHT$(PR$,1)=CHR$(10)THENPF=1:GOTO23
18 IFRIGHT$(PR$,1)=CHR$(128)THENPR$=LEFT$(PR$,J-1):GOTO29
19   NEXTJ
20 IFMID$(PR$,J,1)=" "THEN22
21 J=J-1:GOTO20
22 NX$=MID$(PR$,J+1,R):PR$=MID$(PR$,1,J):GOTO24
23 PR$=LEFT$(PR$,LEN(PR$)-2)
24 IFMID$(PR$,L,3)="   "THEN26
25 IFMID$(PR$,L,1)=" "THEN PR$=MID$(PR$,2,LEN(PR$)):GOTO25
26 LPRINTPR$:LN=LN+1:IFEN=1THEN29
27 IFLS=2THENLPRINT:LN=LN+1
28 PR$=L$+NX$:NX$="":GOTO 15
29 FOR J1=LNTO65:LPRINT:NEXTJ1:PG=PG+1:IFEN=1THENMENU
30 IFX$<>""THEN31 ELSEPRINT@160,"";:INPUT"  <ENTER> = next page, <N> = nonstop";X$
31 CLS:LPRINTPH$:LPRINTL$;"Page ";PG:LPRINT:LPRINT:LN=4:GOTO16