source: FOIAVistA/tag/r/ZZOTHER/TEST.m@ 1318

Last change on this file since 1318 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 666 bytes
Line 
1JULIE ;
2 F I=65:1:67 D
3 .F J=48:1:50 D
4 ..F K=48:1:50 D
5 ...F L=48:1:50 D
6 ....D SET
7 ...F L=65:1:67 D
8 ....D SET
9 ..F K=65:1:67 D
10 ...F L=48:1:50 D
11 ....D SET
12 ...F L=65:1:67 D
13 ....D SET
14 ..F K=65:1:67 D
15 ...F L=48:1:50 D
16 ....D SET
17 ...F L=65:1:67 D
18 ....D SET
19 ..F K=65:1:67 D
20 ...F L=48:1:50 D
21 ....D SET
22 .F J=65:1:67 D
23 ..F K=48:1:50 D
24 ...F L=48:1:50 D
25 ....D SET
26 ...F L=65:1:67 D
27 ....D SET
28 ..F K=65:1:67 D
29 ...F L=48:1:50 D
30 ....D SET
31 ...F L=65:1:67 D
32 ....D SET
33 ..F K=65:1:67 D
34 ...F L=48:1:50 D
35 ....D SET
36 ...F L=65:1:67 D
37 ....D SET
38 ..F K=65:1:67 D
39 ...F L=48:1:50 D
40 ....D SET
41 Q
42SET S X=$C(I)_$C(J)_$C(K)_$C(L)
43 S ^JULIEDBA(I,J,K,L)=X
44 W !,X
45 Q
Note: See TracBrowser for help on using the repository browser.