REC1

RECORD

A

FORM

"1"

B

FORM

"9"

RECORDEND

.

RECX

RECORD

A

INIT

"5"

B

INIT

"6"

RECORDEND

.

CALL

DISP

.

MOVELIST

REC1,RECX

.

CALL

DISP

KEYIN

"Hit Enter to Exit. ",S$CMDLIN

SHUTDOWN

.

DISP

DISPLAY

"REC1...:",REC1,*N:

"RECX...:",RECX

RETURN