/*
** sBufImageFM.rexx
**
** $VER: sBufImageFM.rexx 2.0.2 (23.08.93)
**
** ARexx script generated by T-Rexx Professional 2.0.1
*/

signal on SYNTAX
signal on BREAK_C
signal on HALT

options failat 200

Switcher = 'ToasterARexx.port'  /* address Switcher's ARexx port */

if ~show('L','rexxsupport.library') then
    call addlib('rexxsupport.library',0,-30)
if ~show('L',Switcher) then
    call addlib(Switcher,-1)

say pragma('directory',"DH0:Toaster/")

if ~show(port,Switcher)             /* if the Switcher is not around, */
then                                /* then start it up. */
    do
    if EXISTS('Switcher') then
    do
        say 'Starting up the Toaster Switcher...'
        address command 'Run >NIL: <NIL: Switcher'
        address command 'WaitForPort ToasterARexx.port'
        if ~show(port,Switcher) then
        do
            say 'Could not start the Switcher'
            exit -1
        end
    end
    else
    do
        say "Can't find Switcher, check TOASTER setting"
        DELAY(150)
        exit -1
    end
end

TS=show(port,Switcher)

say 'Begining execution...'

Begin:


Address 'IMAGEFX.1' ScreenToFront
Address 'IMAGEFX.1' SAVEBUFFERAS ILBM 'RAM:SMtempfile' Force
Trap = Switcher(TOSW)
Trap = Switcher(LRGB, "Ram:SMTempfile", 1)
Trap = Switcher(TOWB)
Address Helm.1 screentofront

/*  End of the command list  */

say 'Exiting...'
exit 0

halt:
syntax:
    ERC=RC
    OPEN(ErrorOut,'RAM:T-Rexx.errors','W')
    ERR=SIGL-52
    WRITELN(ErrorOut,ERR' - Error in script -' SourceLine(SIGL))
    CLOSE(ErrorOut)
    if TS then Switcher(TOWB)
    address command 'type RAM:T-Rexx.errors'
    DELAY(125)
    exit 10

break_c:
    if TS then Switcher(TOWB)
    say 'Execution halted by Ctrl-C'
exit 10


TDelay:
arg hours, minutes, seconds, frames

    total=0

    if hours > 0 then total=(hours * 60 * 60 * 50)
    if minutes > 0 then total=total + (minutes * 60 * 50)
    if seconds > 0 then total=total + (seconds * 50)
    if frames > 0 then total=total + ((frames + 1) / 50 * 100)
    if total > 50 then total=total % 1
    if minutes > 0 then total=total - (100 * minutes)

    do while total >= 50
        say '08'x
        Delay(50)
        total=total-50
    end

    if total > 0 then Delay(total)
return 0