Platform

Win32

Purpose

To print a message and exit from a program with Control-break (Win32 only).

Syntax

SUBROUTINE QUIT_CLEANUP@(MESSAGE)
CHARACTER (LEN=*) MESSAGE

Description

This routine uses SET_TRAP@ to trap Control-break. The system responds to Control-break by printing the given message and returning to DOS. This routine provides a simple way to enable programs to be terminated early in a graceful fashion.

Example

CALL QUIT_CLEANUP@('Quit pressed - program abandoned')