Příklady - Umísťování směn

( --- Vezmeme např. první kalendářní směnu)

  StepIdx(dbtSme, smeJmeno)
   if _StartDB(dbtSme) then
     Repeat                            (* Atribut :  $0004  Kalendář *)
     Until _LNot(_StepRec(dbtSme, 1)) or (sme[smeAtrib] land $0004) // 0 ;
   Endif

( --- Vložíme ji do 3. dne 8 hod - 9 hod )

   PlaceShift ( CalIndex, 3, 480, 540, sme[smeTrida], sme[smeSpec])
      GoSub NavratovyKod
   Println ( "  3. den 8 hod - 9 hod : ", sme[smeJmeno])
   T := _ShiftDuration ( CalIndex, sme[dbIdent], 1, 3);
   if ( T // 60) then
     PrintLn(" Nesoulad vypočteného se zjištěným ! ")
   endif