19 lines
368 B
Plaintext
19 lines
368 B
Plaintext
CACHE>WRITE $DATA(VARI)
|
|
0
|
|
CACHE>SET VARI="HELLO" WRITE $DATA(VARI)
|
|
1
|
|
CACHE>NEW VARI WRITE $DATA(VARI) ;Change to a new scope
|
|
0
|
|
CACHE 1S1>SET VARI(1,2)="DOWN" WRITE $DATA(VARI)
|
|
10
|
|
CACHE 1S1>WRITE $DATA(VARI(1))
|
|
10
|
|
CACHE 1S1>WRITE $D(VARI(1,2))
|
|
1
|
|
CACHE 1S1>SET VARI(1)="UP" WRITE $DATA(VARI(1))
|
|
11
|
|
<CACHE 1S1>QUIT ;Leave the scope
|
|
|
|
<CACHE>W $DATA(VARI)," ",VARI
|
|
1 HELLO
|