aboutsummaryrefslogtreecommitdiff
path: root/tests/i/strings/program.cps
blob: e1f934b703fdc82977e72787314243eb2cd95ecb (plain)
1
2
3
4
5
6
7
8
9

DECLARE Empty : STRING
DECLARE Text : STRING
Empty <- ""
Text <- "ABCDEFGH"
OUTPUT LENGTH(Empty), ":", LENGTH(Text)
OUTPUT MID(Text, 2, 3), ":", RIGHT(Text, 3)
OUTPUT "Summer" & " " & "Pudding"
OUTPUT LCASE('W'), ":", UCASE('h'), ":", LCASE('@')
OUTPUT "same" = ("sa" & "me"), ":", "A" < "B"