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