1 CLS:CLEAR900:PRINT@120,"";:INPUT"chapter#.do";CH$:OPEN CH$ FOR INPUT AS#1:rem John Hafey-505-434-4788 2 INPUT#1,A$:ON ERROR GOTO10 3 FOR X=2TO(LEN(A$)-1) 4 IF MID$(A$,X,2)=" "THEN7 5 IF MID$(A$,(X-1),2)=" "THEN7 6 IF MID$(A$,X,1)=" "OR MID$(A$,X,3)=". "OR MID$(A$,X,3)="? "OR MID$(A$,X,3)="! " THEN Y=Y+1:PRINT@140,Y 7 NEXT:A$="":Y=Y+1:GOTO2 10 IF ERR=54 THEN RESUME 11 11 CLOSE#1:CLOSE:BEEP:PRINT:PRINT"Count done!"