14 lines
300 B
Text
14 lines
300 B
Text
string 0; \use zero terminated strings
|
|
include c:\cxpl\codes; \intrinsic 'code' declarations
|
|
char A1, A2;
|
|
int A3, I;
|
|
[A1:= "abc";
|
|
A2:= "ABC";
|
|
A3:= [1,2,3];
|
|
for I:= 0 to 2 do
|
|
[ChOut(0, A1(I));
|
|
ChOut(0, A2(I));
|
|
IntOut(0, A3(I));
|
|
CrLf(0);
|
|
];
|
|
]
|