13 lines
307 B
Text
13 lines
307 B
Text
s$ = "The quick brown fox jumps over the lazy dog."
|
|
Print pangram(s$);" ";s$
|
|
|
|
s$ = "My dog has fleas."
|
|
Print pangram(s$);" ";s$
|
|
|
|
function pangram(str$)
|
|
str$ = lower$(str$)
|
|
for i = asc("a") to asc("z")
|
|
pangram = pangram + (instr(str$, chr$(i)) <> 0)
|
|
next i
|
|
pangram = (pangram = 26)
|
|
end function
|