.TITLE 'PROG2 - Example program 2 (Dynamic Arrays)'

LITERAL
	MAXSIZ	,D4,500
	TERM	,A*,'TT:'		;Terminal name
	TT	,D2,8

RECORD ARRAYS
	ARRAY1	,[1]A1	;[maxsiz]a5
	ARRAY2	,[1]A1	;[maxsiz]a100	;Not used - here to show size difference

RECORD MISC
	I	,D5

;===============================================================================

.PROC
	OPEN (TT,I:C,TERM)				;Open terminal

	XCALL DYNMEM (1,ARRAY1,5,MAXSIZ)		;Create Array1
	XCALL DYNMEM (1,ARRAY2,100,MAXSIZ)		;Create Array2

	FOR I FROM 1 THRU MAXSIZ			;Clear arrays
	    CLEAR ARRAY1[I],ARRAY2[I]			;	"

	FOR I FROM 1 THRU MAXSIZ			;Load array
	    ARRAY1[I]=I,'ZZZZX'				;	"

	FOR I FROM 1 THRU MAXSIZ			;Display loaded array
	    WRITES (TT,ARRAY1[I])			;	"

.END