RosettaCodeData/Task/Pangram-checker/TI-83-BASIC/pangram-checker.basic
2023-07-01 13:44:08 -04:00

7 lines
127 B
Text

:Prompt Str1
:For(L,1,26
:If not(inString(Str1,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",L,1))
:L=28
:End
:If L<28
:Disp "IS A PANGRAM"