; lines.scr
;GdiSetWindow(WinGetDesktop())
i=0
GdiCreatePen(1,1,255,0,0)
while (i<640)
  GdiMoveTo(0,0)
  GdiLineTo(i,480)
  GdiMoveTo(640,480)
  GdiLineTo(i,0)
  i = i+4
endwhile
exit