0 'PRINT.BA Gary Sullivan CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 MAXFILES=2:CLEAR500:DEFINTA-Z:DIMTF$(1),PM$(11),PM(11):PW=1:PL=2:LM=3:RM=4:TM=5:BM=6:LS=7:NF=8:TF=9:PZ=10:FF=11:VW=40:VH$=CHR$(27)+"p":VN$=CHR$(27)+"q":EF$=CHR$(27)+"J":TF$(0)="NO":TF$(1)="YES":PN$="Page":FORI=1TO11:READPM$(I):NEXTI 2 DATA Page width,Page length,Left margin,Right mgn.,Top margin,Bottom mgn.,Line space,Number pgs,Title pgs,Pg-pause,Skip headings 1st pg:FORI=1TO11:READPM(I):NEXTI:DATA 80,66,10,10,6,6,1,1,1,0,0 3 FF$=CHR$(12):CR$=CHR$(13):LF$=CHR$(10):TB$=CHR$(9):BS$=CHR$(8):SP$=" ":HY$="-":CC$=FF$+CR$+LF$+TB$+BS$+SP$:CLS 4 FILES:INPUT"Print which file";FI$:INPUT"Output device (press ENTER for printer)";FO$:IFFO$=""THENFO$="LPT: 5 CLS:FORI=1TO7:PRINT@VW/2*(I-1),VH$I;VN$PM$(I)" ="PM(I);:NEXTI:FORI=8TO11:PRINT@VW/2*(I-1),VH$I;VN$PM$(I)" = "TF$(PM(I));:NEXTI:S=0:PRINT:INPUT"Change which setting (0=no change)";S:IFS=0THEN9 6 IFS>=1 ANDS<=7THENPRINT"Enter a new value for '"PM$(S)"'";:INPUTPM(S):GOTO5 7 IFS>=8 ANDS<=11THENPRINT"'"PM$(S)"' (YES/NO)";:INPUTS1$:IFS1$="YES"ORS1$="yes"THENPM(S)=1ELSEIFS1$="NO" ORS1$="no"THENPM(S)=0 8 GOTO5 9 LW=PM(PW)-PM(LM)-PM(RM):TL=PM(PL)-PM(BM):LM$=STRING$(PM(LM),SP$):CLS:IFPM(TF)=1THENPRINT"Enter a one-line title maximum"LW"characters.":LINEINPUTTI$:TI$=LEFT$(TI$,LW) 10 IFFO$="LPT:" ORFO$="lpt:"THENINPUT"Align paper then press ENTER";RD$ 11 OPENFI$FORINPUTAS1:OPENFO$FOROUTPUTAS2:CLS:C$="":PN=0 12 IFEOF(1)THENCLOSE:PRINT"Done":GOTO4 13 IFPM(PZ)=1THENINPUT"Press ENTER to print next page";RD$ 14 PN=PN+1:LN=0 15 IFLN=TLTHEN39 22 C1$=C$:C$=INPUT$(1,1):ONINSTR(1,CC$,C$)GOTO31,33,35,37,38,41 23 B$=B$+C$:IFC$>=SP$THENCP=CP+1 24 IFCP0THENS=HP+1:GOTO26 27 HP=HQ:S=1:SP=0 28 SQ=SP:SP=INSTR(S,B$,SP$):IFSP>0THENS=SP+1:GOTO28 29 SP=SQ:BP=-(SP>HP)*SP-(HP>=SP)*HP:IFBP=0THENGOSUB44:GOTO20 30 B1$=RIGHT$(B$,LB-BP):B$=LEFT$(B$,BP):GOSUB44:B$=B1$:CP=LEN(B$):GOTO20 31 AF=0:WF=0:IFB$>""THENGOSUB44 32 GOTO39 33 IFWF=0THENGOSUB44ELSEWF=0 34 GOTO20 35 IFC1$=CR$ ORAF=1 ORWF=1THEN20 36 GOSUB44:GOTO20 37 I1=8-CP MOD8:I2=LW-CP:TB=-(I1""THENPRINT#2,LM$; 45 PRINT#2,B$:LN=LN+1:B$="":CP=0:LK=1 46 IFLK