PROGRAM 14


'  FILENAME:  PROG14.BAS
'  THIS PROGRAM ALLOWS THE USER TO ENTER A WORD, SENTENCE, OR PHRASE AND
'  PRINTS WHATEVER THE USER TYPED AND THE NUMBER OF WORDS THEY TYPED.
CLS
DO
        GOSUB PRINT.SENTENCE
        GOSUB COUNT.WORDS
        GOSUB PRINT.COUNT
LOOP UNTIL SENTENCE$ = CHR$(13)
END
PRINT.SENTENCE:
        LOCATE , , 1
        LET SENTENCE$ = ""
        PRINT "ENTER A SENTENCE, TERMINATED BY A PERIOD.  PRESS 'ENTER' TO STOP PROGRAM."
        PRINT
        DO
                LET SENTENCE2$ = INPUT$(1)
                IF SENTENCE2$ <> CHR$(8) THEN
                        LET SENTENCE$ = SENTENCE$ + SENTENCE2$
                        PRINT SENTENCE2$;
                ELSE
                        LET SENTENCE$ = LEFT$(SENTENCE$, LEN(SENTENCE$) - 1)
                        PRINT CHR$(29);
                        PRINT " ";
                        PRINT CHR$(29);
                END IF
        LOOP UNTIL SENTENCE2$ = CHR$(46) OR SENTENCE2$ = CHR$(13)
RETURN
COUNT.WORDS:
        PRINT
        PRINT
        IF SENTENCE2$ <> CHR$(13) THEN PRINT SENTENCE$;
        LET P = 1
        COUNT = 1
        DO
                LET N = INSTR(P, SENTENCE$, CHR$(32))
                IF N <> 0 THEN LET COUNT = COUNT + 1
                LET P = N + 1
        LOOP UNTIL N = 0
RETURN
PRINT.COUNT:
        PRINT
        PRINT
        IF SENTENCE2$ <> CHR$(13) THEN PRINT "WORD COUNT ="; COUNT
        IF SENTENCE2$ = CHR$(13) THEN CLS
        PRINT
        SLEEP 2
        CLS
RETURN

'  OUTFILE:  PROG14.OUT

ENTER A SENTENCE, TERMINATED BY A PERIOD.  PRESS 'ENTER' TO STOP PROGRAM.

ANTHONY ORTIZ.

ANTHONY ORTIZ.

WORD COUNT = 2




BACK TO CIS133 PAGE.