]>
Commit | Line | Data |
---|---|---|
16654bbe PB |
1 | vector: MODULE |
2 | ||
3 | SYNMODE m_index = RANGE(1:10); | |
4 | NEWMODE vector = ARRAY (m_index) INT; | |
5 | ||
6 | DCL a, b, c vector; | |
7 | ||
8 | dump: PROC( a vector LOC, c CHAR ); | |
32d06797 | 9 | DCL i m_index := 5; |
16654bbe PB |
10 | DO FOR i IN m_index; |
11 | WRITETEXT( STDOUT, "%C(%C)=%C ", c, i, a(i) ); | |
12 | OD; | |
13 | WRITETEXT( STDOUT, "%/" ); | |
14 | END dump; | |
15 | ||
16 | a := vector [ 1, -1, 2, -2, 3, -3, 4, -4, 5, -5 ]; | |
17 | b := a; | |
18 | b(4) := 4; | |
19 | b(7) := 7; | |
20 | c := vector [(*): 0]; | |
21 | ||
22 | dump(a,'a'); | |
23 | ||
24 | END vector; |