;ini  --  erases the frame grabber (fg)
;         initializes the LUTs (input & output)   
;         loads upper-case character set
;27-5-90  adapted for TIM 3.30 
;********************************************************
int err

era fg  
;ver
lut 1 1 1                ;input LUT: lineair
err = chk lut 2 2 5 			   ;LUT 2 (false colours)
err = chk lut 2 3 1 			   ;LUT 3 (graphics)
err = chk lut 2 3 7 1			   ;red in bit 1
err = chk lut 2 4 1 			   ;LUT 4 (CLP)
err = chk lut 2 4 7 1			   ;red in bit 1
err = chk lut 2 4 8 2			   ;green in bit 2
err = chk lut 2 4 9 3			   ;blue in bit 3
err = chk lut 2 1 1 			   ;LUT 1 (standard black/white)
lcset standard
print "Character set (standard) installed"
print "Output look-up tables initialised:"
print "  LUT 1:  standard black & white"
print "  LUT 2:  false colours in 3 MSbits"
print "  LUT 3:  LSbit = red (for graphics purposes)"
print "  LUT 4:  3 colours in LSbits (for CLP-operations)"
print "          bit 3 = blue  (highest priority)"
print "          bit 2 = green (lower pr.)"
print "          bit 1 = red   (lowest pr.)"
stop

