Intermec PENKEY 6100 Programmer's Reference Manual page 147

SECTION 6
EXAMPLE:
EXTERNALS
++ifdef 6000
NUMERIC FUNCTION FILECOMMIT = IPFCMT6
++endif
LOCAL VARIABLES
01 RESULT
. . .
++ifdef 6000
;Commit files to disk when transaction is complete
PERFORM FILE_COMMIT
++endif
. . .
++ifdef 6000
PROCEDURE FILE_COMMIT
RESULT = FILECOMMIT
IF RESULT THEN
ENDIF
END; OF FILE_COMMIT
++endif
Power Management BIOS Interfaces: ELANAPM.EXE
Overview
BINARY WORD
OUT (KBD) (KB_HOME)
& 'FILE COMMIT',
& 'FAILED!',
& 'DOS ERROR #', RESULT,
& 'DISK MAY BE',
& 'CORRUPT. NOTIFY',
& 'SUPERVISOR', BEL, BEL
;Do not allow user to continue
REPEAT
RESULT = INPUT(E)
UNTIL 0
PEN*KEY
R
6100 Computer Programmer's Reference Guide
Conversions and Interfaces
6-11