IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
 
	ENVIRONMENT DIVISION.
 
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	01 WCNT PIC 9(04) VALUE 0.
	01 CNT PIC 9(04) VALUE 0.
	01 CNT1 PIC 9(03) VALUE 0.
	01 WTIME.
		03 HH PIC 9(02).
		03 MM PIC 9(02).
		03 SS PIC 9(02).
	01 STIME PIC 9(06) VALUE 0.
	01 ETIME PIC 9(06) VALUE 0.
 
	PROCEDURE DIVISION.
		DISPLAY "!!!CNT 9(04) TYPE-IN END...9999".
		ACCEPT WCNT.
		DISPLAY WCNT.
		IF WCNT = 9999
			THEN
				DISPLAY "<<<CNT041 - ENDED>>>"
			ELSE
				MOVE  0  TO  CNT  CNT1
				ACCEPT WTIME FROM TIME
				COMPUTE STIME=(HH*3600)+(MM*60)+(SS)
				PERFORM UNTIL CNT = WCNT
					ADD 1 TO	CNT	CNT1
					DISPLAY CNT	CNT1
					IF CNT1 = 10
						THEN
							MOVE ZERO TO CNT1
							DISPLAY CNT
						ELSE CONTINUE
					END-IF
				END-PERFORM
		END-IF.
		STOP RUN.

CUlERU5USUZJQ0FUSU9OIERJVklTSU9OLgoJUFJPR1JBTS1JRC4gSURFT05FLgoKCUVOVklST05NRU5UIERJVklTSU9OLgoKCURBVEEgRElWSVNJT04uCglXT1JLSU5HLVNUT1JBR0UgU0VDVElPTi4KCTAxIFdDTlQgUElDIDkoMDQpIFZBTFVFIDAuCgkwMSBDTlQgUElDIDkoMDQpIFZBTFVFIDAuCgkwMSBDTlQxIFBJQyA5KDAzKSBWQUxVRSAwLgoJMDEgV1RJTUUuCgkJMDMgSEggUElDIDkoMDIpLgoJCTAzIE1NIFBJQyA5KDAyKS4KCQkwMyBTUyBQSUMgOSgwMikuCgkwMSBTVElNRSBQSUMgOSgwNikgVkFMVUUgMC4KCTAxIEVUSU1FIFBJQyA5KDA2KSBWQUxVRSAwLgoJCglQUk9DRURVUkUgRElWSVNJT04uCgkJRElTUExBWSAiISEhQ05UIDkoMDQpIFRZUEUtSU4gRU5ELi4uOTk5OSIuCgkJQUNDRVBUIFdDTlQuCgkJRElTUExBWSBXQ05ULgoJCUlGIFdDTlQgPSA5OTk5CgkJCVRIRU4KCQkJCURJU1BMQVkgIjw8PENOVDA0MSAtIEVOREVEPj4+IgoJCQlFTFNFCgkJCQlNT1ZFICAwICBUTyAgQ05UICBDTlQxCgkJCQlBQ0NFUFQgV1RJTUUgRlJPTSBUSU1FCgkJCQlDT01QVVRFIFNUSU1FPShISCozNjAwKSsoTU0qNjApKyhTUykKCQkJCVBFUkZPUk0gVU5USUwgQ05UID0gV0NOVAoJCQkJCUFERCAxIFRPCUNOVAlDTlQxCgkJCQkJRElTUExBWSBDTlQJQ05UMQoJCQkJCUlGIENOVDEgPSAxMAoJCQkJCQlUSEVOCgkJCQkJCQlNT1ZFIFpFUk8gVE8gQ05UMQoJCQkJCQkJRElTUExBWSBDTlQKCQkJCQkJRUxTRSBDT05USU5VRQoJCQkJCUVORC1JRgoJCQkJRU5ELVBFUkZPUk0KCQlFTkQtSUYuCgkJU1RPUCBSVU4u

NjYK

66