/*
** AKz.adpro
**
** $VER: AKz.adpro 1.0.1 (17.03.93)
**
** This ARexx program provides an equivalent keyboard shortcut to
** undo the changes made to the image buffer since the last save to
** the undo buffer.  This script can be launched using the Amiga User
** Interface Style Guide sequence for Undo: Right-Amiga + z.
**
** This script requires ADPro 2.3.0 (or higher).
**
** Copyright © 1993 ASDG Incorporated  All Rights Reserved
*/


ADDRESS "ADPro"
OPTIONS RESULTS

NL = '0A'X

LFORMAT "TEMP"
oldLoader = ADPRO_RESULT
IF (RC ~= 0) THEN DO
	ADPRO_TO_FRONT
	OKAY1 "No TEMP loader found."
	ADPRO_TO_BACK
	EXIT 10
END

LOAD_TYPE REPLACE
oldLoadType = ADPRO_RESULT

ORIENTATION PORTRAIT
oldLoadOrient = ADPRO_RESULT

LOAD "XXX"
SaveRC = RC

LFORMAT oldLoader
LOAD_TYPE oldLoadType
ORIENTATION oldLoadOrient

IF (SaveRC ~= 0) THEN DO
	ADPRO_TO_FRONT
	OKAY1 "There is no undo buffer"
	ADPRO_TO_BACK
	EXIT 10
END

EXIT 0