GETEXITQQ (W*32, W*64)

QuickWin Function: Returns the setting for a QuickWin application's exit behavior.

Module: USE IFQWIN

Syntax

result = GETEXITQQ( )

Results

The result type is INTEGER(4). The result is exit mode with one of the following constants (defined in IFQWIN.F90):

The default for both QuickWin and Console Graphics applications is QWIN$EXITPROMPT.

Compatibility

STANDARD GRAPHICS QUICKWIN.EXE LIB

See Also: SETEXITQQ, Building Applications: Using QuickWin Overview

Example

!  Program to demonstrate GETEXITQQ
     USE IFQWIN
     INTEGER i
     i = GETEXITQQ()
     SELECT CASE (i)
       CASE (QWIN$EXITPROMPT)
         WRITE(*, *) "Prompt on exit."
       CASE (QWIN$EXITNOPERSIST)
         WRITE(*,*) "Exit and close."
       CASE (QWIN$EXITPERSIST)
         WRITE(*,*) "Exit and leave open."
     END SELECT
     END