{ Programm:  DiskIcon
  ~~~~~~~~
  Sprache:   MaxonPASCAL 3 / KP 2.12 / OS 2.0-Includes
  ~~~~~~~~
  Sinn:      Speichern von WBProjektIcon
  ~~~~~      Wird das Icon (im RAM) angeklickt wird das DefaultTool
             WBStartup von mir angesprochen...

  Autor:     PackMAN
  ~~~~~~     c/o Falk Zühlsdorff
             Lindenberg 66
             D-98693 Ilmenau/Thüringen

  ©:         FREEWARE, der Autor wird in .dok / Infofenster des nicht-
  ~~                   kommerziellen Programmes erwähnt. 

  Kommentar: Version für MAXON
  ~~~~~~~~~~ ab OS2                                                    }

PROGRAM diskicon;
USES EXEC;
{$INCL 'workbench/startup.h','icon.lib'}
TYPE    ifeld=array[1..48] of long;
VAR dobj      : p_DiskObject;
    success   : boolean;
    name      : string;
    Gad       : Gadget;
    MyImage   : Image;
    idat      : ^ifeld;

BEGIN
 IconBase:=OpenLibrary('icon.library',37);
 IF IconBase=NIL THEN exit;
 idat:=ptr(alloc_mem(sizeof(ifeld),2)); {Chip}
   idat^:=ifeld(
 %000000000000000000000000000000,
 %000001111111111111111111111110,
 %000110100000000000000000000010,
 %011000100000000000000000000010,
 %100000100000000000000000000010,
 %111111100000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %101111101111100100010111110010,
 %100010000100000010100001000010,
 %100010000110000001000001000010,
 %100010000100000010100001000010,
 %100010000111100100010001000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %100000000000000000000000000010,
 %111111111111111111111111111110,
 %000000000000000000000000000000,

 %000000000000000000000000000000,
 %000000000000000000000000000000,
 %000001011111111111111111111100,
 %000111011111111111111111111100,
 %001111011111111111111111111100,
 %000000011111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %001111111111111111111111111100,
 %000000000000000000000000000000,
 %000000000000000000000000000000);

 MyImage:=image(0,0,32,24,2,idat,3,0,nil);

 Gad:=Gadget(NIL,0,0,32,25,GADGIMAGE,GADGIMMEDIATE+
             RELVERIFY,BOOLGADGET,^MyImage,NIL,NIL,0,NIl,0,NIL);

 dobj:=GetDefDiskObject(WBPROJECT);
 dobj^.do_DefaultTool:='MaxonPASCAL3:Demos-OS2.0/WBstartup';
 dobj^.do_Gadget:=Gad;
 name:='ram:test';
 success:=PutDiskObject(^name,dobj); {wenn success=true Icon gespeichert}
 FreeDiskObject(dobj);
END.