Příklady - Základní pracovní data

 ...
 Discover ( CalIndex, TurPracDnu, TurPracMin,
                  SkuPracDnu, SkuPracMin, ExsKorekce)
   GoSub OsetriNavratovyKod

PrintLn(" Měl pracovat : ", TurPracDnu, " dní " )
  PrintLn("  (  přesně ", TurPracMin div 60, " hodin ",
                          TurPracMin mod 60, " minut ) " )


			PrintLn(" Pracoval : ", SkuPracDnu, " dní " )
			  PrintLn("  (  přesně ", SkuPracMin div 60, " hodin ",
                         SkuPracMin mod 60, " minut ) ")

			if ExsKorekce then
			  PrintLn(" Korekční činnosti existují   ")

			else
			  PrintLn(" Korekční činnosti neexistují ")

		endif

Podívejte se na: Jiné příklady