Silverfrost Logo About Us | Contact Us
 

QUIT_CLEANUP@

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')

 

 

Copyright © 1999-2017 Silverfrost Limited