/**********************************************************************
*   module : new_scan
*   author : mike        edited by kuo 
*   professor : Dr. Webster
*   coding date : Nov. 1990 
*
**********************************************************************/

main()
{
  VIS$OPEN();
  VIS$INIT_FB();
  VIS$INIT_LUTS();
  sleep(1);
  VIS$DYNAMIC_OUTLUT(1);
  VIS$VMASK();
  VIS$DRAW_BOX (310, 0, 330, 480, 512, 0);
  upper_draw_line(0, 450, 500);
  upper_draw_line(0, 460, 500);
  upper_draw_line(0, 470, 500);
  upper_draw_line(0, 475, 500);
}

upper_draw_line (x1, y1, dx)
 int x1, y1, dx;
{
  int r;
  r = VIS$H_WRITE_LINE (x1, y1, dx, 512); 
}