diff options
Diffstat (limited to 'tests/ii/strings/program.cps')
| -rw-r--r-- | tests/ii/strings/program.cps | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/ii/strings/program.cps b/tests/ii/strings/program.cps new file mode 100644 index 0000000..55e7541 --- /dev/null +++ b/tests/ii/strings/program.cps @@ -0,0 +1,17 @@ +DECLARE Count : INTEGER +DECLARE Index : INTEGER +DECLARE Empty : INTEGER +DECLARE Text : STRING +DECLARE Start : INTEGER +DECLARE Width : INTEGER +INPUT Count +FOR Index <- 1 TO Count + INPUT Empty + INPUT Text + INPUT Start + INPUT Width + IF Empty = 1 THEN + Text <- "" + ENDIF + OUTPUT LENGTH(Text), ":", MID(Text, Start, Width), ":", RIGHT(Text, Width), ":", Text = ("" & Text), ":", LCASE(Text), ":", UCASE(Text) +NEXT Index |