identification division.

program-id. underline.

environment division.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

select output-file

assign to "labout.dat".

data division.

file section.

FD output-file.

01 output-rec pic x(10).

procedure division.

000-start-prog.

open output output-file.

move "**********" to output-rec.

write output-rec.

write output-rec.

write output-rec.

move "__________" to output-rec.

write output-rec after advancing 0 lines.

move "**********" to output-rec.

write output-rec.

write output-rec.

write output-rec.

close output-file.

stop run.

SCREEN OUTPUT: why not 7 lines? What happened to 3^rd ********** line?!

**********

**********

__________

è ADD AFTER ADVANCING 1 LINE TO ALL OTHER WRITE OUTPUT-REC LINES (except one already there advancing 0 lines)… same output!

è ORGANIZATION IS LINE SEQUENTIAL… SAME OUTPUT

**********

**********

**********

EMACS OUTPUT:

Blank line

**********^M

**********^M

**********^M__________^M

**********^M

**********^M

**********^M

PRINTED OUTPUT:

Blank line

**********

**********

**********

**********

**********

**********