/********************************************************************/
/***                                                              ***/
/***                      Gif to Ham.adpro                        ***/
/***                                                              ***/
/***     Dieses Makro convertiert Gif Bilder ins Ham Format       ***/
/***                                                              ***/
/***    (c) 1993 by ChipUser, programmiert von Horst Beckhuis     ***/
/***                                                              ***/
/***                   Published by Dark Angel                    ***/
/***                                                              ***/
/********************************************************************/




OPTIONS RESULTS

Dummy = ADDLIB("rexxsupport.library",0,-30,0)
IF POS("rexxsupport.library",SHOW("Libraries")) = 0 THEN DO
  SAY "Die rexxsupport.library ist nicht vorhanden!"
  EXIT 10
END

/* ADPro laden, wenn noch nicht geschehen */

Load_TimeOut_Seconds = 60

ADDRESS COMMAND
IF STATEF("adpro:") = "" THEN DO
  SAY "Ich kann ADPro nicht finden!"
  EXIT 10
END

Load_Flag = 0
Dummy = TIME("R")
DO WHILE (TIME("E") < Load_TimeOut_Seconds) & (POS("ADPro",SHOW("Ports")) = 0)
  IF Load_Flag = 0 THEN DO
    "run <nil: >nil: adpro:adpro"
    Load_Flag = 1
  END
  "wait 1"
END

IF POS("ADPro",SHOW("Ports")) = 0 THEN DO
  SAY "Ich kann ADPro nicht laden!"
  EXIT 10
END


ADDRESS "ADPro"

LFORMAT "UNIVERSAL"
LOAD "SYS:PIC.universal"

PCT_SCALE 50 50
RENDER_TYPE HAM
SCREEN_TYPE 0
DITHER 1
execute

SFORMAT "IFF"
SAVE "RAM:Pic.Ham" "IMAGE"

ADPRO_EXIT