73 lines
1.5 KiB
Plaintext
73 lines
1.5 KiB
Plaintext
;
|
|
; Variables examples for DBL version 4 by Dario B.
|
|
;
|
|
|
|
.DEFINE NR,10 ;const
|
|
.DEFINE AP,"PIPPO" ;const
|
|
|
|
|
|
RECORD CUSTOM
|
|
COD, D5
|
|
NAME, A80
|
|
ZIP, D6
|
|
CITY, A80
|
|
;-----------------------
|
|
|
|
RECORD
|
|
|
|
ALPHA, A5 ;alphanumeric
|
|
NUMBR, D5 ;number
|
|
DECML, F5.2 ;float
|
|
NUMVE, 10D5 ;array of number
|
|
NUMAR, [10,2]D5 ;array of number
|
|
ALPV1, 10A8 ;array of alphanumeric
|
|
ALPV2, [NR]A8 ;array of alphanumeric
|
|
ALPA1, [10,2]A8 ;array of alphanumeric
|
|
|
|
NUMV, 3D3,100,200,300
|
|
ALPV, 2A3,'ABC','FGH','KLM'
|
|
MSX, A9,"VARIABLES"
|
|
MSG, A*,'Esempio di variabile autodimensionante'
|
|
|
|
PROC
|
|
;-----------------------------------------------------------------------
|
|
|
|
CLEAR ALPHA,NUMBR,DEML,NUMVE(1:10*5),NUMAR(1:10*2*5),ALPV1(1:10*8)
|
|
CLEAR ALPV2(1:10*8),ALPA1(1:10*2*8)
|
|
|
|
ALPHA="PIPPO"
|
|
NUMBR=10
|
|
DECML=20.55
|
|
|
|
CLEAR CUSTOM
|
|
COD=1050
|
|
NAME='Dario Benenati'
|
|
ZIP=27100
|
|
CITY="PAVIA"
|
|
|
|
NUMVE(1:10*5)=
|
|
NUMVE(1)=1
|
|
SET NUMVE(2),NUMVE(3),NUMVE(4)=2
|
|
|
|
NUMAR(1:10*2*5)=
|
|
NUMAR[1,1]=11
|
|
NUMAR[1,2]=12
|
|
NUMAR[2,1]=21
|
|
NUMAR[2,2]=22
|
|
|
|
ALPV1(1:10*8)=
|
|
ALPV1(1)="PIPPO"
|
|
APLV1(2)="PLUTO"
|
|
APLV1(2)="ABCDEFGHIJKLMNOP" ;ALPV(3)='IJKLMNOP'
|
|
|
|
ALPV2(1:10*8)=" "
|
|
ALPV2[1]="PIPPO"
|
|
ALPV2(2)="PLUTO"
|
|
ALPV2[3](3:2)="FO"
|
|
ALPV2[4](3,4)="FO"
|
|
|
|
SET ALPA1[1,1],ALPA1[1,2]="PLUTO"
|
|
ALPA1[2,1](3:2)="FO"
|
|
ALPA1[2,1](3,4)="FO"
|
|
;.....................
|