сброс
рх 400,400
цх 255,255,128
цп 0,0,255
иди 48,208
для $n=1 до 60 {
  тп 1
  вп 8
  пр 90
  если (остаток $n, 5)==1 {
    тп 4
    вп 5
    нд 5
  }
  иначе
  {
    тп 2
    вп 4
    нд 4
  }
  тп 1
  лв 90
  вп 8
  пр 6
}
сч