10 lines
148 B
Text
10 lines
148 B
Text
PROC Main()
|
|
CHAR ARRAY a="abc",b="ABC"
|
|
BYTE ARRAY c=[1 2 3]
|
|
BYTE i
|
|
|
|
FOR i=0 TO 2
|
|
DO
|
|
PrintF("%C%C%B%E",a(i+1),b(i+1),c(i))
|
|
OD
|
|
RETURN
|