;ini  --  initializes the LUTs (input & output)     23-7-87
;         same as 'ini', but no text
;****************************************
int err

char naam[8]
IMAGE winim
int imnum=0

repeat
  fprint naam 0 "%s" (getim WIN_BIT (++imnum))  ;256x256 winbeeld
  winim = naam
  if  naam[0] != 0  era winim
until naam[0] == 0

lut 3 1 
era fg
err = chk lut 1 1 1    ;input LUT: lineair
err = chk lut 2 1 1    ;LUT 1 (standard black/white)
if err == 0            ;if no LUTs or FG skip rest
  lut 2 2 5            ;LUT 2 (false colours)
  lut 2 3 1            ;LUT 3 (graphics)
  lut 2 3 7 1          ;red in bit 1
  lut 2 4 1            ;LUT 4 (CLP)
  lut 2 4 7 1          ;red in bit 1
  lut 2 4 8 2          ;green in bit 2
  lut 2 4 9 3          ;blue in bit 3
  lut 2 1			; select LUT 1 (standard black/white)
endif
lcset standard
stop "Characterset STANDARD loaded"
