#include timdefs.h

parms
  int windis
endparms
float fHoek = 270.0
int regel = 0
int err

err = chk lut 1
dest p
show p
era q
cstr miss
era 1
err = chk lut 3
;curs 200 128            cursor position
for regel = 0 to 255  
  rdvec p fHoek 0 200 128
  xorvec p fHoek 0 200 128 1
  ihis q regel  
  fHoek += 360.0 / 256.0
endfor
era q 1
dest p
*windispl h (windis+WINLUT3+BITCOPY1)
dest s
rotl q
*windispl i windis

stop
