proc main() 
  card i ;"cardinal"=unsigned int
  graphics(7+16);set graphics 23
  setcolor(0,4,8)  ;color 1 (pink)
  setcolor(1,7,4)  ;color 2 (blue)
  setcolor(2,0,14) ;color 3 (white)
  setcolor(100,100,100) ;background
  color=1
  plot(10,10)
  drawto(149,10)
  color=2
  drawto(10,85)
  color=3
  drawto(149,85)
  for i=1 to 60000
    do
      ;do nothing
    od
  graphics(0)
return