code:

---

; echo Booting from C:
  ; das hier meldet "Workbench:" an
  C:Mount >NIL: Devs:Dosdrivers/DOS_WB

  ; wir wollen doch nichts überstürzen ...
  WAIT 1

  ; erstmal Pfade legen...
  Path >NIL: Workbench:C/AmithlonC ADD
  Path >NIL: Workbench:C ADD

  ; und alle System Verzeichnisse umbiegen...
  Assign >NIL: L: Workbench:L ADD
  Assign >NIL: L: SYS:L remove

  Assign >NIL: Libs: Workbench:Libs ADD
  Assign >NIL: Libs: SYS: remove

  Assign >NIL: C: Workbench:C ADD
  Assign >NIL: C: SYS:C remove

  Assign >NIL: S: Workbench:S ADD
  Assign >NIL: S: Sys:S remove

  Assign >NIL: FONTS: Workbench:FONTS ADD
  Assign >NIL: FONTS: SYS: remove

  Assign >NIL: DEVS: Workbench:DEVS ADD
  Assign >NIL: DEVS: SYS: remove
 
  Assign >NIL: SYS: SYS: remove
  Assign >NIL: Sys: Workbench: ADD

; hier fängt die normale Startup an ...

---

code:

---

DEFTYPE.BitMapHeader *bmhd
DEFTYPE.BitMap *newbm

...

d.l = GetBitMapAttr_(*newbm,#BMA_DEPTH)
If d <= 8 Then ncols.l = 1 LSL d : Else ncols = 0

; neues DT Objekt anlegen
*DTPic._Object = NewDTObjectA_ (0,Tags(#DTA_SourceType,#DTST_RAM,#PDTA_DestMode, #PMODE_V43,#DTA_GroupID,#GID_PICTURE,#PDTA_BitMap,*newbm,#PDTA_Remap,0 ) )

If *DTPic
  GetDTAttrsA_ *DTPic,Tags(#PDTA_BitMapHeader,&*bmhd)
  *bmhd\bmh_Width = GetBitMapAttr_(*newbm,#BMA_WIDTH)
  *bmhd\bmh_Height = GetBitMapAttr_(*newbm,#BMA_HEIGHT)
  *bmhd\bmh_Depth = d

  ; oeffnen einer neuen Datei und schreiben mittels picture.datatype
  fh.l = Open_ (&filename.s,#MODE_NEWFILE)
  If fh
    succ = DoDTMethodA_ (*DTPic,0,0,Tags(#DTM_WRITE,0,fh,#DTWM_IFF))
    Close_ fh
  EndIf

  ; entfernen des DT Objektes
  DisposeDTObject_ *DTPic
EndIf

---