53 lines
1.3 KiB
Plaintext
53 lines
1.3 KiB
Plaintext
;
|
|
; Arrays for DBL version 4 by Dario B.
|
|
;
|
|
|
|
.DEFINE NR,5
|
|
|
|
RECORD
|
|
|
|
VNUM1, 5D8 ;array of number
|
|
VNUM2, [5]D8 ;array of number
|
|
VNUM3, [5,2]D8 ;two-dimensional array of number
|
|
|
|
VALP1, 5A10 ;array of strings
|
|
VALP2, [5]A10 ;array of strings
|
|
VALP3, [5,2]A10 ;two-dimensional array of strings
|
|
|
|
VALP4, [NR]A10 ;array of strings
|
|
|
|
PROC
|
|
;------------------------------------------------------------------
|
|
|
|
;Valid uses of arrays
|
|
VNUM1(1)=12345678
|
|
|
|
VNUM2(1)=VNUM1(1) ; = 12345678
|
|
VNUM2[2]=VNUM1(1) ; = 12345678
|
|
|
|
VNUM2[3]=VNUM2[1](3:2) ; = 34
|
|
|
|
VNUM3[1,1]=1
|
|
VNUM3[1,2]=2
|
|
VNUM3[2,1]=3
|
|
|
|
|
|
VALP1(1)="ABCDEFGHIJ"
|
|
|
|
VALP2(2)=VALP1(1) ; = "ABCDEFGHIJ"
|
|
VALP2[2]=VALP1(1) ; = "ABCDEFGHIJ"
|
|
|
|
VALP2[3](3:2)=VALP2[1](3:2) ; = " CD "
|
|
|
|
VALP3[1,1]="ABCDEFGHIJ"
|
|
VALP3[1,2]=VALP3[1,1] ;= "ABCDEFGHIJ"
|
|
VALP3[2,1](3:2)=VALP3[1,2](3:2) ;= " CD "
|
|
|
|
VALP4[1]="ABCDEFGHIJ"
|
|
|
|
;Clear arrays
|
|
CLEAR VNUM1(1:5*8),VNUM3(1:5*2*8)
|
|
VNUM2(1:5*8)=
|
|
CLEAR VALP1(1:5*8),VALP2(1:5*10)
|
|
VALP3(1:5*2*10)=
|