31 lines
896 B
Text
31 lines
896 B
Text
10 READ N
|
|
20 FOR A = 1 TO N
|
|
30 READ SQ$, I$
|
|
35 FOR S = 1 TO LEN(SQ$)
|
|
36 S$ = MID$(SQ$, S, 1)
|
|
40 GOSUB 100" SQUEEZE
|
|
45 PRINT "Character: '" S$ "'"
|
|
50 PRINT LEN(I$) "<<<" I$ ">>>"
|
|
60 PRINT LEN(O$) "<<<" O$ ">>>"
|
|
70 PRINT
|
|
80 NEXT S, A
|
|
90 END
|
|
|
|
REM SQUEEZE
|
|
100 O$ = I$
|
|
110 IF LEN(I$) < 2 THEN RETURN
|
|
120 O$ = ""
|
|
130 P$ = ""
|
|
140 FOR I = 1 TO LEN(i$)
|
|
150 C$ = MID$(I$,I,1)
|
|
160 IF C$ <> S$ OR C$ <> P$ THEN O$ = O$ + C$
|
|
170 P$ = C$
|
|
180 NEXT I
|
|
190 RETURN
|
|
|
|
400 DATA 5
|
|
410 DATA " ",""
|
|
420 DATA "-","'If I were two-faced, would I be wearing this one?' --- Abraham Lincoln "
|
|
430 DATA "7","..1111111111111111111111111111111111111111111111111111111111111117777888"
|
|
440 DATA ".","I never give 'em hell, I just tell the truth, and they think it's hell. "
|
|
450 DATA " -r"," --- Harry S Truman "
|