/*
** AKp.adpro
**
** $VER: AKp.adpro 1.0.0 (16.3.93)
**
** This ARexx program provides an equivalent keyboard shortcut to
** print the current raw image data to your Preferences-supported printer.
** This script can be launched using the sequence: Right-Amiga + p.
**
** This script requires ADPro 2.3.0 (or higher).
**
** Copyright © 1993 ASDG Incorporated  All Rights Reserved
*/

ADDRESS "ADPro"
OPTIONS RESULTS

NL = '0A'X

SFORMAT "PREFPRINTER"
oldSaver = ADPRO_RESULT
IF (RC ~= 0) THEN DO
	ADPRO_TO_FRONT
	OKAY1 "No PREFPRINTER saver found"
	ADPRO_TO_BACK
	EXIT 10
END

SAVE_GUI
SFORMAT oldSaver

EXIT 0