LAST

DIM

30

FIRST

DIM

15

MIDDLE

DIM

1

.

WRNAM

VARLIST

LAST,FIRST,MIDDLE

.

FILE

FILE

SEQ

FORM

"-1"

BYTES

FORM

7

.

WRITE

FILE,SEQ;WRNAM

COUNT

BYTES,WRNAM

DISPLAY

*P01:24,WRNAM:

" consists of ",BYTES:

" bytes of non-blank data."