29 lines
690 B
Text
29 lines
690 B
Text
FOR test% = 1 TO 2
|
|
READ test$
|
|
PRINT """" test$ """ " ;
|
|
IF FNpangram(test$) THEN
|
|
PRINT "is a pangram"
|
|
ELSE
|
|
PRINT "is not a pangram"
|
|
ENDIF
|
|
NEXT test%
|
|
END
|
|
|
|
DATA "The quick brown fox jumped over the lazy dog"
|
|
DATA "The five boxing wizards jump quickly"
|
|
|
|
DEF FNpangram(A$)
|
|
LOCAL C%
|
|
A$ = FNlower(A$)
|
|
FOR C% = ASC("a") TO ASC("z")
|
|
IF INSTR(A$, CHR$(C%)) = 0 THEN = FALSE
|
|
NEXT
|
|
= TRUE
|
|
|
|
DEF FNlower(A$)
|
|
LOCAL A%, C%
|
|
FOR A% = 1 TO LEN(A$)
|
|
C% = ASCMID$(A$,A%)
|
|
IF C% >= 65 IF C% <= 90 MID$(A$,A%,1) = CHR$(C%+32)
|
|
NEXT
|
|
= A$
|