0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' Document length estimator by Russ Hall, 1380 Diane Dr. Salt Lake City, UT 84123 4 D=0:CLS:FILES 5 PRINT:INPUT" Count words in which file";B$ 10 OPENB$FORINPUTAS1 20 ONERRORGOTO70 30 A$=INPUT$(40,1):D=D+1 50 IFEOF(1)THEN80 60 GOTO20 70 RESUME80 80 CLOSE:CLS 90 IFD>57THEN108 100 IFD<35THENPRINT:PRINT"Use margins 12 wide":D=D+8:GOTO105 104 IFD<45THENPRINT:PRINT"Use margins 10 wide":D=D+4 105 PRINT:PRINT"Adjust paper up"INT(((57-D)/14)*100)/100"inches for":PRINT"proper margins on '"B$"'.":GOTO115 108 PRINT:PRINT"Adjust paper up"INT(((80-D)/14)*100)/100"inches for":PRINT"proper ELITE margins on '"B$"'." 110 PRINT:PRINT"Ready to send code to printer?":GOSUB200 111 IFK$="Y"ORK$="y"THENLPRINTCHR$(27);CHR$(23)' Code for DMP-105 printer 115 PRINT:PRINT" for another, to quit.":GOSUB200 130 IFK$=" "THEN0 ELSE MENU 200 K$=INKEY$:IFK$=""THEN200 210 RETURN