KODOVANI ZPRAV  :'*****HLAVNI PROGRAM*****"CRT:M1"' A$(`),B$(p),C$(p)( I P2 A$(I)(I)< IFF A$(X)():"KODOVATDEKODOVATKONEC ? (K/D/E) ";X$P X$"E" JZ X$"D" d:'*****KODOVANI*****n"KOD=";AB:ACAB:x h:J JX D :ADADZ: ADX C$(J)A$(AD):JJ: .ADADX:C$(J)A$(AD):JJ: :'*****DEKODOVANI*****"KOD=";AB:ACAB: h:J JX K :ADZAD: AD C$(J)A$(XAD):JJ: "C$(J)A$(AD):JJ: :'*****PODPROGRAM*****QABAB :AD(AB):AB(AB(AD  )AD)(  ) Z P B$(J)A$(Z)  Z:'*****TISK D*****h,Y::J X :YY:C$(J):Y Y:,:::Y,6J:, @ J:'*****KONEC*****T:"THE END":^:'*****CTENI ZPRAVY*****hX:YrW$:XX | (W$) XX* (W$)PY:XX:G (W$)XX:YY:,::'W$=CHR$(18) Y YR (((W$)) ((W$)4)) B$(X)W$:B$(X): Y YE (((W$)) ((W$)4)) Y,:YY  r