16 lines
661 B
Text
16 lines
661 B
Text
100 P$ = "11111111111111111111111111"
|
|
110 FOR Q = 1 TO 3
|
|
120 READ S$
|
|
130 GOSUB 200"IS PANGRAM?
|
|
140 PRINT MID$ ("NO YES ",P * 4 + 1,4)S$
|
|
150 NEXT Q
|
|
160 END
|
|
170 DATA"THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG."
|
|
180 DATA"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG."
|
|
190 DATA"THE FIVE BOXING WIZARDS JUMP QUICKLY."
|
|
200 P = 0:L = LEN (S$): IF NOT L THEN RETURN
|
|
210 F$ = "00000000000000000000000000"
|
|
220 FOR I = 1 TO L
|
|
230 C = ASC ( MID$ (S$,I,1)):C = C - 32 * (C > 95): IF C > 64 AND C < 91 THEN J = C - 64:F$ = MID$ (F$,1,J - 1) + "1" + MID$ (F$,J + 1):P = F$ = P$: IF P THEN RETURN
|
|
240 NEXT I
|
|
250 RETURN
|