.TITLE 'PROG1 - Example program 1 (Static Arrays)'

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

RECORD ARRAYS
	ARRAY1	,[MAXSIZ]A5
	ARRAY2	,[MAXSIZ]A100		;Not used - here to show size difference

RECORD MISC
	I	,D5

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

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

	CLEAR ARRAYS					;Clear arrays

	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