Sayfa 22

*

* LİIBRARY.C library örnekleri

: (C) Berktan Bestel, Şubat 1992

* Aztec C compile info: * cc libary * In library-lc

#include intuition/intuition.h #include intuition/intuitionbase.h #include functions.h

struct İntuitionBase *İntuitionBase; struct GfgBase — *GfxBase;

100,100, /* sol üst köşe x,y */

280,50, /* başlık çubuğu yazı */ 2, 1* başlık çubuğu yazı */ 1,1* başlık çubuğu arka */ NULL, /* IDCMP-flags */ | SMART - REFRESH | ACTIVATE | WİNDOWDRAG | WIN- DOWDEPTH, NULL, NULL, Window”,NULL,NULL, 100,20,640,256,/* geniş.ve yüksek- lik max-min */ WBENCHSCREEN

end(char” err)

if (win) — CloseWindow (win): if (GfxBase! NULL) Closelibrary (GfxBase); if (İntuitionBase! —- NULL.) CloselLib- rary(IntuitionBase):

if (eri) — putslerr): exit(0):

main )

IntuittonBase — ition library”,33L); if (IntuitonBase — NULL)Jend(“Can't open intuiton GfxBase — Openlibrary("grap- hics.library”,33L); if (GfxBase— -NULL) end (“Can't open graphics.library”): win - openWindow (&nw):; if (win— NULL) end (“Can't open windowỊi:

Move (win- RPort,10L,20L); Text(win- RPort, Hello,worldl 14L);