home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / count2.ba < prev    next >
Text File  |  2006-10-19  |  973b  |  23 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 2 ' Document length estimator by Russ Hall, 1380 Diane Dr. Salt Lake City, UT 84123
  3. 4 D=0:CLS:FILES
  4. 5 PRINT:INPUT" Count words in which file";B$
  5. 10 OPENB$FORINPUTAS1
  6. 20 ONERRORGOTO70
  7. 30 A$=INPUT$(40,1):D=D+1
  8. 50 IFEOF(1)THEN80
  9. 60 GOTO20
  10. 70 RESUME80
  11. 80 CLOSE:CLS
  12. 90 IFD>57THEN108
  13. 100 IFD<35THENPRINT:PRINT"Use margins 12 wide":D=D+8:GOTO105
  14. 104 IFD<45THENPRINT:PRINT"Use margins 10 wide":D=D+4
  15. 105 PRINT:PRINT"Adjust paper up"INT(((57-D)/14)*100)/100"inches for":PRINT"proper margins on '"B$"'.":GOTO115
  16. 108 PRINT:PRINT"Adjust paper up"INT(((80-D)/14)*100)/100"inches for":PRINT"proper ELITE margins on '"B$"'."
  17. 110 PRINT:PRINT"Ready to send code to printer?":GOSUB200
  18. 111 IFK$="Y"ORK$="y"THENLPRINTCHR$(27);CHR$(23)' Code for DMP-105 printer
  19. 115 PRINT:PRINT"<Spacebar> for another, <Q> to quit.":GOSUB200
  20. 130 IFK$=" "THEN0 ELSE MENU
  21. 200 K$=INKEY$:IFK$=""THEN200
  22. 210 RETURN
  23.