home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 5
/
FreshFish_July-August1994.bin
/
bbs
/
gfx
/
agaiff-1.21.lha
/
AGAiff-1.21
/
REXX
/
Info.agaiff
next >
Wrap
Text File
|
1992-09-02
|
933b
|
33 lines
/* ARexx-Script > Info.agaiff
*
* Shows info about the AGAiff status using the STATUS command !
*/
call close 'STDOUT'
call close 'STDIN'
call open 'STDIN','CON:0/0/500/120/AGAiff Information'
call pragma '*','STDIN'
call open 'STDOUT','*'
address "AGAIFF_REXX"
options results
STATUS 0
if result == "" then say "No picture loaded."
else do
say "Actual Picture: " result
STATUS 1; parse var result sizx sizy
say "Size: " sizx || "/" || sizy
STATUS 2; say "Depth: " result
STATUS 4; say "DisplayMode: " result
STATUS 6; parse var result rawa rawl;
say "RAW Data: " rawa
say " (length) " rawl
STATUS 3; parse var result rx1 ry1 rx2 ry2
say "Selected Range: " rx1 || "/" || ry1 "-" rx2 || "/" || ry2
end
say "0a0a"x || "<cr> please.."
pull