0 'INCHES.BA Keith Rogers
1 'CLUB 100 library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 'NEWS STORY LENGTH ESTIMATOR
3 'INCH ESTIMATES BY WILLIAM KIRCHOFF
4 'FT. LAUDERDALE NEWS/SUN-SENTINEL
5 CLEAR:CLS:FILES:PRINT
6 INPUT"Name of Story";F$:IFF$="/"THENMENU
7 IFASC(LEFT$(F$,1))>90THENBEEP:PRINT"Upper case Filename":GOTO6
8 IFLEN(F$)=0THENMENU
9 IFINSTR(1,F$,".")=0THENF$=F$+".DO
10 PRINT:PRINT"Working...";:ONERRORGOTO18:OPENF$FORINPUTAS1:ONERRORGOTO13
11 IFEOF(1)THENLN=LN-1:GOTO13
12 A$=INPUT$(23,1):LN=LN+1:GOTO11
13 CLOSE:CLS:PRINT"News Story :"F$:LN=LN+1:REM Calculate Lines/Inch
14 IN=INT((LN/8)*100):IN=IN/100:PRINT:PRINT:PRINT"The story is "IN"inches long.":PRINT:PRINT:PRINT"Press any key...";
15 A$=INKEY$:IFA$=""THEN15
16 'finished
17 MENU
18 CLS:BEEP:PRINT:PRINT"Access Error - Please Reconsider":PRINT:PRINT"Press any key...";:A$=INKEY$:IFA$=THEN173
19 GOTO5:END