IDENTIFICATION DIVISION.
	PROGRAM-ID. SAMPLE.

	ENVIRONMENT DIVISION.

	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 n PIC Z9 .
	01 THE-NUMBERS.
		10 FILLER USAGE IS COMP-1 VALUE -.24093455+04.
		10 FILLER USAGE IS COMP-1 VALUE -.55439209-47.
		10 FILLER USAGE IS COMP-1 VALUE  .44591240+13.
		10 FILLER USAGE IS COMP-1 VALUE -.22818252-71.
		10 FILLER USAGE IS COMP-1 VALUE -.48936378-36.
		10 FILLER USAGE IS COMP-1 VALUE  .53763199+00.
		10 FILLER USAGE IS COMP-1 VALUE  .23808258+74.
		10 FILLER USAGE IS COMP-1 VALUE -.13901026-68.
		10 FILLER USAGE IS COMP-1 VALUE -.54452280-53.
		10 FILLER USAGE IS COMP-1 VALUE -.33187504+05.
		10 FILLER USAGE IS COMP-1 VALUE  .84218729+00.
		10 FILLER USAGE IS COMP-1 VALUE -.18465549-73.
		10 FILLER USAGE IS COMP-1 VALUE -.16025044-50.
	01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
	PROCEDURE DIVISION.
		ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY THE-ANSWER
			ACCEPT n
		END-PERFORM.
		STOP RUN.