1. 子程序结束
  2. 子程序 疲劳()
  3.     dm.MoveTo(319,438)
  4.     延时 50 毫秒
  5.     令 dm_PL = dm.Ocr(321,389,341,405,"ffffff-000000",1.0)
  6.     令 dm_pl = clng(Abs(dm_pl))
  7.     如果 dm_pl <= 0 则
  8.     条件结束
  9. 子程序结束