mode transparent
let c = (500)
let d = (1)
let e = (280)
let f = (199)
repeat (18)
  inc c
  inc c
  inc c
  inc c
  dec e
  dec e
  inc d
  inc d
  dec f
  dec f
  dec f
  dec f
  line(c,d,e,f);
endr
Save Screen autopic
quit