Data commit

Task/Pangram-checker/Comal/pangram-checker.comal

@@ -0,0 +1,16 @@
+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."