KONDICIOGRAM
( # P KONDICIOGRAM % (C)1987 R HAJEK ( :[@ ]p , ,"KONDICIOGRAM",@ , , : [@ ] , , ,G :[@ ] ,p , ,p . , : "JAK SE JMENUJES? ";M$ t
,` :"DATUM NAROZENI D :";D1: ( , :"M:";M1: ( , :"R :";R1 DD1:MM1:RR1: TS t ( ,0 :"DNESNI DATUM D :";D2: ( ,@ :"M:";M2: ( ,P :"R :";R2 + c - "KONDICIOGRAM ";M$: , : M2;" ";R2: , : D1;".";M1;".";R1 2 DD2:MM2:RR2: 0 < JSTD2 :JRJ(s(M2 )) F A$"F ." B P P8 :F :P18 :CI1J(JP)P:CR1JR(JRP)P
Z , d A$"C ." B n P` :Fffff:P2` :CI2J(JP)P:CR2JR(JRP)P
x , A$"I ." B P :FL:P3 :CI3J(JP)P:CR3JR(JRP)P
, C ,( : "1234567890123456789012345678901234567890" ; N ( : D2 ,N: [ ]"": N N : N,* (( p (N(P1 )CI1 (P1 )) p ffff(N(P2 )CI2 (P2 )) p L(N(P3 )CI3 (P3 )))@ ): N J ,0 :"C ? ";Q$: Q$"A" Q$"N"
" M MM : RR MMP S1(6 R) S2(tM):SS1S2D 7 ,C1J(JP)P:C(JD )((JD )P)P ' 6 C A$;" !": T
@XPC J A$;" ";X;" " T N L ^ N,* ( p F(N(P )C1 (P ))) h N r : "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 :Y1Y Y( (N(P1v)CR1S(P1v)) ffff(N(P2v)CR2S(P2v)) L(N(P3v)CR3S(P3v)))@ / Y1YY1: N ,(p Y1)@ : N
@ ) ,0 :"Z? ";Z$ Z$"A" Z$"N"