16 lines
371 B
Text
16 lines
371 B
Text
proc MakeList(Separator);
|
|
char Separator;
|
|
int Counter;
|
|
|
|
proc MakeItem;
|
|
int Ordinals;
|
|
[IntOut(0, Counter);
|
|
Text(0, Separator);
|
|
Ordinals:= [0, "first", "second", "third"];
|
|
Text(0, Ordinals(Counter));
|
|
CrLf(0);
|
|
];
|
|
|
|
for Counter:= 1 to 3 do MakeItem; \MakeList procedure
|
|
|
|
MakeList(". ") \main procedure
|