DIM A% = 123
DIM B% = 456
...
IF condition THEN ALIAS C = A% else ALIAC C = B%
...
...

DIM Arr2D%(100,1)
ALIAS Arr1%(100) = Arr2D%(100,0)
ALIAS Arr2%(100) = Arr2D%(100,1)
...
SORT Arr1%()

Dim integer i,j,k
Dim integer test(2,3,4), two(2),three(3),four(4)
Dim s$(2,3,4) length 6, twos$(2) length 6, threes$(3) length 6, fours$(4) length 6
For i=0 To 2
For j=0 To 3
For k=0 To 4
test(i,j,k)=i+(j<<4)+(k<<8)
s$(i,j,k)=Str$(test(i,j,k))
'Print k,j,i,Hex$(Val(S$(i,j,k))),Hex$(test(i,j,k))
Next k
Next j
Next i
Array Slice s$()  ,,3,4,twos$()
Array Slice test(),,3,4,two()
For i=0 To 2
Print Hex$(two(i),3), "  ";
Next i
Print ""
For i=0 To 2
Print Hex$(Val(twos$(i)),3), "  ";
Next i
Print ""

Array Slice test(),2,,4,three()
Array Slice s$(),2,,4,threes$()
For i=0 To 3
Print Hex$(three(i),3), "  ";
Next i
Print ""
For i=0 To 3
Print Hex$(Val(threes$(i)),3), "  ";
Next i
Print ""
Array Slice test(),2,3,,four()
Array Slice s$(),2,3,,fours$()
For i=0 To 4
Print Hex$(four(i),3), "  ";
Next i
Print ""
For i=0 To 4
Print Hex$(Val(fours$(i)),3), "  ";
Next i
Print ""
fours$(0)="zero"
fours$(1)="one"
fours$(2)="two"
fours$(3)="three"
fours$(4)="four"
four(0)=0
four(1)=1
four(2)=2
four(3)=3
four(4)=4
Array Insert test(),2,1,,four()
Array Insert s$(),2,1,,fours$()

For i=2 To 2
For j=1 To 1
For k=0 To 4
Print k,j,i,S$(i,j,k),Hex$(test(i,j,k))
Next k
Next j
Next i