NAME

DIM

40

ADDR

DIM

40

CITY

DIM

30

STATE

DIM

2

ZIPCODE

DIM

9

.

VARLIST1

VARLIST

NAME,ADDR,CITY,STATE,ZIPCODE

.

NAME2

DIM

40

ADDR2

DIM

40

CITY2

DIM

30

STATE2

DIM

2

ZIPCODE2

DIM

9

.

VARLIST2

VARLIST

NAME2,ADDR2,CITY2,STATE2,ZIPCODE2

*

.Fill the first VARLIST

.

MOVE

"Sunbelt",NAME

MOVE

"13090 CR 468",ADDR

MOVE

"Tyler",CITY

MOVE

"Tx",STATE

MOVE

"75704",ZIPCODE

*

.Make the copy

.

MOVE

VARLIST1,VARLIST2

*

.Display the second VARLIST

.

DISPLAY

*HD,*R,NAME2:

*R,ADDR2:

*R,CITY2:

*R,STATE2:

*R,ZIPCODE2

STOP