As I was going through the intrinsics manual, I realized another way to
PAUSE that is easier to call from COBOL because there are no floating
point numbers needed -- HPSELECT. Here is an example where you can
specify seconds + microseconds.

Happy computing
John Zoltak

:COB85XLG COBTEST4

PAGE 0001  COBOL II/iX HP31500A.04.16  [85] Copyright Hewlett-Packard
CO. 1987
 00001          001000$CONTROL SOURCE
 00002          002000 IDENTIFICATION DIVISION.
 00003          003000 PROGRAM-ID. TEST.
 00004          004000 ENVIRONMENT DIVISION.
 00005          005000 DATA DIVISION.
 00006          006000 WORKING-STORAGE SECTION.
 00007          007000
 00008          008000 77 RETURN-STATUS PIC S9(9) COMP.
 00009          009000 01 TIME-VALUES.
 00010          010000    05 TIME-IN-SECONDS  PIC S9(9) COMP.
 00011          011000    05 TIME-IN-MSECS    PIC S9(9) COMP.
 00012          012000
 00013          013000 PROCEDURE DIVISION.
 00014          015000 DO-THE-TEST.
 00015          017000     MOVE 5 TO TIME-IN-SECONDS.
 00016          018000     MOVE 0 TO TIME-IN-MSECS.
 00017          019000
 00018          020000     DISPLAY "CALLING HPSELECT...@ ", TIME-OF-DAY.
 00019          021000     CALL INTRINSIC "HPSELECT" USING \0\, \\, \\,
\\,
 00020          022000                               TIME-VALUES,
RETURN-STATUS
 00021          023000     DISPLAY "...DONE @ ", TIME-OF-DAY.

0 ERROR(s), 0 QUESTIONABLE, 0 WARNING(s)
    DATA AREA IS       34 BYTES.
    CPU TIME = 0:00:00.  WALL TIME = 0:00:00.
END OF PROGRAM
END OF COMPILE
HP Link Editor/iX (HP30315A.05.23) Copyright Hewlett-Packard Co 1986
LinkEd> link
END OF LINK

CALLING HPSELECT...@ 10:30:24
...DONE @ 10:30:29

END OF PROGRAM
: