Visible to Intel only — GUID: GUID-FEE704A1-6BF3-4B75-B39C-31F0618D2073
Visible to Intel only — GUID: GUID-FEE704A1-6BF3-4B75-B39C-31F0618D2073
SETEXITQQ
QuickWin Function: Sets a QuickWin application's exit behavior. This routine is only available for Windows.
Module
USE IFQWIN
result = SETEXITQQ (exitmode)
exitmode |
(Input) INTEGER(4). Determines the program exit behavior. The following exit parameters are defined in IFQWIN.F90:
|
Results
The result type is INTEGER(4). The result is zero if successful; otherwise, a negative value.
The default for both QuickWin and Standard Graphics applications is QWIN$EXITPROMPT.
Example
! Build as QuickWin Ap USE IFQWIN INTEGER(4) exmode, result WRITE(*,'(1X,A,/)') 'Please enter the exit mode 1, 2 & or 3 ' READ(*,*) exmode SELECT CASE (exmode) CASE (1) result = SETEXITQQ(QWIN$EXITPROMPT) CASE (2) result = SETEXITQQ(QWIN$EXITNOPERSIST) CASE (3) result = SETEXITQQ(QWIN$EXITPERSIST) CASE DEFAULT WRITE(*,*) 'Invalid option - checking for bad & return' IF(SETEXITQQ( exmode ) .NE. -1) THEN WRITE(*,*) 'Error not returned' ELSE WRITE(*,*) 'Error code returned' ENDIF END SELECT END