CS508 Assignment 2 Solution

 

Cs508 idea:

 

Code:

 

&TRIM = 1

 

LETV = 0

 

PAT = POS(0) LEN(*N) BREAK("',;:.-_()?!" '"') LEN(1) @N

 

OUTPUT = 'ENTER A STRING'

 

READ USERLINE = INPUT :F(PRINT)

 

OUTPUT = USERLINE

 

N = 0

 

C USERLINE PAT :F(READ)

 

LETV = LETV + 1 :(C)

 

PRINT OUTPUT

 

OUTPUT = "FOUND " LETV " PUNCTUATION MARKS IN THE GIVEN STRING."