SEC   MBK(7000)
  SEC   5 10 58 40
  SEC   6 16 10 1
  SEC   7 17 20 2
  SEC   8 0
  FOR   i=5 TO 8
   EN_SEC   i
  NEXT   i
  FORK   11 *mon
  END  
*mon
  DO  
   TIME   1000
   FOR   i=5 TO 8
    SEC   i
    PRINT   MBK(7000+(i*3)) MBK(7001+(i*3)) MBK(7002+(i*3))
   NEXT   i
   PRINT   "next"
  LOOP