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.
USE IFQWIN
result = SETEXITQQ (exitmode)
exitmode |
(Input) INTEGER(4). Determines the program exit behavior. The following exit parameters are defined in IFQWIN.F90:
|
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.
! 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