; inidemo  --  initializing the system for the demo version
;
file timdemo = "timwin.hlp"
char naam[20]
IMAGE img
int imnum = 0

repeat       ;make all windows images visible
  fprint naam 0 "%s" (getim (WIN_BIT+I256) (++imnum))  ;search 256x256 win images
  img = naam
  if  naam[0] != 0  
    show img 1
    dest img
  endif
until naam[0] == 0

;if frame grabber present, make first 256x256 image active
fprint naam 0 "%s" (getim (DIS_BIT+I256))  ;256x256 FG-image
img = naam
if  naam[0] != 0
  dest img
  show img
endif

/init

wig             ;test image in active image
help timdemo "TIMWIN Demo" 1
stop

