000100 IDENTIFICATION DIVISION.
000110 PROGRAM-ID. SAMPLE.
000120 ENVIRONMENT DIVISION.
000130 CONFIGURATION SECTION.
000140 SOURCE-COMPUTER. TRS80-III.
000150 OBJECT-COMPUTER. TRS80-III.
000160 INPUT-OUTPUT SECTION.
000170 FILE-CONTROL.
000180     SELECT REPORTER ASSIGN TO PRINT, "ABC".
000190 DATA DIVISION.
000200 FILE SECTION.
000210 FD REPORTER
000220     BLOCK CONTAINS 3 RECORDS
000230     RECORD CONTAINS 80
000240     LABEL RECORDS OMITTED.
000250 01  REPLINE         PIC X(80).
000260 WORKING-STORAGE SECTION.
000270 01  PLINE.
000280     05  LASTNAME        PIC X(12).
000290     05  FIRSTNAME       PIC X(12).
000300     05  INITS           PIC X(4).
000310 PROCEDURE DIVISION.
000320 START-PROCESSING.
000330     OPEN OUTPUT REPORTER.
000340     DISPLAY "LAST NAME:", LINE 5, POSITION 3,
000350     HIGH, BLINK, ERASE.
000360     ACCEPT LASTNAME, LINE 5, POSITION 14, SIZE 12,
000370     ECHO, PROMPT.
000380     DISPLAY "FIRST NAME:" LINE 6, POSITION 2,
000390     HIGH, BLINK.
000400     ACCEPT FIRSTNAME, LINE 6, POSITION 14, SIZE 12,
000410     ECHO, PROMPT.
000420     DISPLAY "INITIAL:", LINE 7, POSITION 0, SIZE 2,
000430     HIGH, BLINK.
000440     ACCEPT INITS, LINE 8, POSITION 14, SIZE 2,
000450     ECHO, PROMPT.
000460     STOP RUN.
