Adept AdeptSight Reference Guide - Manual (Page 432)

old_timeout = PARAMETER(VTIMEOUT)
PARAMETER VTIMEOUT = 10*old_timeout
file_index = 0
$as.filename[file_index] = $filename
TYPE "Saving... Please wait"
;V+
VPARAMETER(-1, -1, save_type, parameter_index, object_index) $ip = file_index
;uV+
;VPARAMETER(, , load_type, parameter_index, object_index) = file_index
WHILE TRUE DO
value = 4
value = VPARAMETER($ip, -1, -1, save_type, parameter_index, object_index)
IF (value == 3) THEN
TYPE "Save Succeeded"
EXIT
END
IF (value == 4) THEN
TYPE "Save Failed"
EXIT
END
END
PARAMETER VTIMEOUT = old_timeout
.END
Related Properties
SaveProject
LoadSequence
SaveSequence
AdeptSight Reference Guide, v3.2.x, Updated: 5/8/2012
Page 432