/***********************************************************************
 GADGET: "'fs Grafik-Format'" "4" AUTO TYP: "?"

 $DAT >>FSt_Format.clssa<<   04 Nov 1992 - (C)1992 ProDAD Holger Burkarth
************************************************************************/

Options Results

  errvari=0

  DO FOREVER

    ADDRESS clariSSA
    FormatRequest
    IF RC~=0 THEN LEAVE
    PARSE VAR RESULT . "FORMAT" x y t "VIEWMODE" viewmodes

    fraS_Mode=""
    OScan=0

    IF Find(viewmodes,"HAM")>0      THEN fraS_Mode=fraS_Mode 4112
    ELSE IF Find(viewmodes,"EHB")>0 THEN fraS_Mode=fraS_Mode 64
    ELSE                                 fraS_Mode=fraS_Mode 2**t

    IF Find(viewmodes,"HIRES")>0 THEN DO
      fraS_Mode=fraS_Mode HIRES
      IF x > 640 THEN OScan=1
    END
    ELSE DO
      IF x > 320 THEN OScan=1
    END

    IF Find(viewmodes,"LACE")>0 THEN DO
      fraS_Mode=fraS_Mode LACE
      IF y > 512 THEN OScan=1
    END
    ELSE DO
      IF y > 256 THEN OScan=1
    END

    IF OScan=1 THEN fraS_Mode=fraS_Mode "oscan"



    ADDRESS "FrameStore"
    fs_new fraS_Mode
    if result~=27 THEN Message "'*** Grafik-Format ***''Grafikformat kann nicht''dargestellt werden.'"

    ADDRESS clariSSA
    SetBasicScreen FRONT

    LEAVE
  END
exit