16 lines
465 B
Text
16 lines
465 B
Text
0010 FUNC pangram#(s$) CLOSED
|
|
0020 FOR i#:=ORD("A") TO ORD("Z") DO
|
|
0030 IF NOT (CHR$(i#) IN s$ OR CHR$(i#+32) IN s$) THEN RETURN FALSE
|
|
0040 ENDFOR i#
|
|
0050 RETURN TRUE
|
|
0060 ENDFUNC
|
|
0070 //
|
|
0080 WHILE NOT EOD DO
|
|
0090 READ s$
|
|
0100 PRINT "'",s$,"' is ",
|
|
0110 IF NOT pangram#(s$) THEN PRINT "not ",
|
|
0120 PRINT "a pangram"
|
|
0130 ENDWHILE
|
|
0140 END
|
|
0150 DATA "The quick brown fox jumps over the lazy dog."
|
|
0160 DATA "The five boxing wizards dump quickly."
|