blob: 8a5e5097ea652c3fa9a90b515c8dfac893027ef6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 Start
INPUT Width
INPUT Text
IF Empty = 1 THEN
Text <- ""
ENDIF
OUTPUT LENGTH(Text), ":", MID(Text, Start, Width), ":", RIGHT(Text, Width), ":", Text = ("" & Text), ":", LCASE(Text), ":", UCASE(Text)
NEXT Index
|
