PROGRAM 15


'  FILENAME:  PROG15.BAS
'  THIS PROGRAM ALLOWS THE USER TO FIND OUT WHETHER A WORD IS FOUND IN A
'  SENTENCE AND HOW MANY TIMES IT IS FOUND.  
CLS
DO
        GOSUB READ.WORDS
LOOP UNTIL CT = 1
DO
        GOSUB INPUT.WORD
        DO
                GOSUB COUNT.WORDS
        LOOP UNTIL N = 0
        GOSUB PRINT.COUNT
LOOP UNTIL UCASE$(ANS$) <> "YES"
END
READ.WORDS:
        READ WORDS$
        CT = CT + 1
RETURN
INPUT.WORD:
        COUNT2 = 0
        PRINT WORDS$
        PRINT
        INPUT "ENTER A WORD OR WORDS TO SEARCH FOR. ", WORDS2$
        PRINT
        LET P = 1
RETURN
COUNT.WORDS:
        LET N = INSTR(P, UCASE$(WORDS$), UCASE$(WORDS2$))
        IF N <> O THEN
                LET COUNT = COUNT + 1
        END IF
        IF N = 1 OR N = 9 OR N = 13 OR N = 17 OR N = 22 OR N = 31 OR N = 38 OR N = 46 THEN COUNT2 = COUNT2 + 1
        IF N = 1 THEN PRINT MID$(WORDS$, 1, 7); " ";
        IF N = 9 THEN PRINT MID$(WORDS$, 9, 3); " ";
        IF N = 13 THEN PRINT MID$(WORDS$, 13, 3); " ";
        IF N = 17 THEN PRINT MID$(WORDS$, 17, 4); " ";
        IF N = 22 THEN PRINT MID$(WORDS$, 22, 8); " ";
        IF N = 31 THEN PRINT MID$(WORDS$, 31, 6); " ";
        IF N = 38 THEN PRINT MID$(WORDS$, 38, 7); " ";
        IF N = 46 THEN PRINT MID$(WORDS$, 46, 8); " ";
        P = N + 1
RETURN
PRINT.COUNT:
        PRINT
        PRINT
        PRINT "WORD COUNT ="; COUNT2
        PRINT
        INPUT "WOULD YOU LIKE TO CONTINUE?  TYPE 'YES' TO CONTINUE. ", ANS$
        CLS
        DATA ANIMALS TAN ANT AUNT ANTEATER BANTER LANTERN PLEASANT," "
RETURN

'  OUTFILE:  PROG15.OUT

ANIMALS TAN ANT AUNT ANTEATER BANTER LANTERN PLEASANT

ENTER A WORD OR WORDS TO SEARCH FOR. ANT

ANT ANTEATER

WORD COUNT = 2

WOULD YOU LIKE TO CONTINUE?  TYPE 'YES' TO CONTINUE. NO




BACK TO CIS133 PAGE.