KONDICIOGRAM ( # P KONDICIOGRAM% (C)1987 R HAJEK( :[@]p, ,"KONDICIOGRAM",@,,: [@],,,G:[@],p,,p. , : "JAK SE JMENUJES? ";M$t ,`:"DATUM NAROZENI D :";D1: (,:"M:";M1: (,:"R :";R1DD1:MM1:RR1: TSt( ,0:"DNESNI DATUM D :";D2: (,@:"M:";M2: (,P:"R :";R2+c- "KONDICIOGRAM ";M$: ,: M2;" ";R2: ,: D1;".";M1;".";R12DD2:MM2:RR2: 0<JSTD2:JRJ(s(M2))FA$"F ."BPP8:F:P18:CI1J(JP)P:CR1JR(JRP)P Z ,dA$"C ."BnP`:Fffff:P2`:CI2J(JP)P:CR2JR(JRP)P x ,A$"I ."BP:FL:P3:CI3J(JP)P:CR3JR(JRP)P ,C ,(: "1234567890123456789012345678901234567890"; N (: D2,N: []"": N N : N,*(( p(N(P1)CI1(P1)) pffff(N(P2)CI2(P2)) pL(N(P3)CI3(P3)))@): NJ ,0:"C ? ";Q$: Q$"A"  Q$"N" " M MM: RRMMPS1(6R)S2(tM):SS1S2D7,C1J(JP)P:C(JD)((JD)P)P'6 C A$;" !": T @XPCJ A$;" ";X;" "T N L^ N,*( pF(N(P)C1(P)))h Nr: "KONDICIOGRAM";((M$));M$: (M$),: D2;".";M2;"."R2: ,(: " ";R2: ,@: "Z:";JD2;" "3 ,(: "L U B D K C C S Z R L P "Y(  (CR1S(P1v))  ffff(CR2S(P2v))  L(CR3S(P3v)))@: |,*Y N 4:Y1YY(  (N(P1v)CR1S(P1v))  ffff(N(P2v)CR2S(P2v))  L(N(P3v)CR3S(P3v)))@/Y1YY1: N,(pY1)@: N  @) ,0:"Z? ";Z$ Z$"A"  Z$"N"