UNI DATEI CT N*k  D YXz: . KARET$2 A$(X),B$(X),C$(X),D$(X),E$(X)34M1$"/MAX. 1 ( ,' ;' )"&9Z0$" KOPFZEILE " : BEZ.KOPFZ."@MU$"C,D,C,D,C,D,C,D,C,D,C,D"D9F:[`,]()" H L A V N I - M E N U "SK:"V KARTOTECE JE MOMENTALNE "AA" KARET": X,@:[,@]AA!P:" 1 = RUCNI VKLADANI DATZ:" 2 = DOPLNENI DAT"d:" 3 = OPRAVA DAT"n:" 4 = LOAD DATA"x:" 5 = SAVE DATA"}:" 6 = TRIDENI":" 7 = LISTOVANI":" 8 = HLEDEJ":" 9 = TVORBA HLAVICKY"::"VLOZ CISLO ! ";BW?(BW)(BW) "SPATNE JSI ZADAL,ZNOVU!": / BW , , , , , p, X, ', (# *** 1000 VKLADANI ***:"VKLADANI DAT RUCNE"T AA [@,]"POZOR,MAN JESTE UKLADAT DATA DO ZASOBNIKU ? J/N" AA JN$&$ AA JN$"J":: ". AA JN$"N" 8 AA "B:"PROSIM OZNACENI SOUBORU "L:"";KN$V:"POCET KARET ? ";AA?` AAX "MAX. X KARET MUZETE ZADAT - PROSIM ZNOVU": Vjt IAA~'[@,]Z0$;I;".KARTA "M1$) ,@:[@,]Z1$) , :[@,]Z2$) ,:[@,]Z3$) p,:[@,]Z4$1 O,:"";A$(I):A$(I)(A$(I), )1 O,:"";B$(I):B$(I)(B$(I), )1 O,0:"";C$(I):C$(I)(C$(I), )1 O,:"";D$(I):D$(I)(D$(I), )6 p,:"";E$(I):E$(I)(E$(I), )+ ,8:"1 = ZNOVU, 2 = OK "  JN$ JN$"1"  JN$"2"     I9 ,8:[@,]" STISKNI SPACE "  LS$( LS$" "  2  *** 2000 DOPLNENI ***a(KN$"")(AA):[@,]"ZASOBNIK JE JESTE PRAZDNY ":I;:: 2:"DATA ROZSIRIT":" "AA" KARET V ZASOBNIKU"(:"KOLIK KARET ? ";AW : ABAAAW:? ABX "MAX. POCET JE "X" KARET":"ZADEJ ZNOVU !":   I (AA)(AAAW)> [@,]Z0$;I;".KARTA"M1$: ,:A$(I)0* ,@:[@,]Z1$:B$(I)04 , :[@,]Z2$:C$(I)0> ,:[@,]Z3$:D$(I)AC p,:[@,]Z4$: p,:E$(I)1H O,:"";A$(I):A$(I)(A$(I), )1R O,:"";B$(I):B$(I)(B$(I), )1\ O,0:"";C$(I):C$(I)(C$(I), )1f O,:"";D$(I):D$(I)(D$(I), )6k p,:"";E$(I):E$(I)(E$(I), )+p ,8:"1 = ZNOVU, 2 = OK " z JN$ JN$"1" H" JN$"2" AAAA:   z I9 ,8:[@,]" STISKNI SPACE "  LS$ LS$" "    ** 3000 OPRAVY *** :"OPRAVA DAT":AA" KARET JE ZADANO" :"CISLO KARTY ? ";I - [@,]Z0$;I;".KARTA"M1$:A$(I)0 ,@:[@,]Z1$:B$(I)0 , :[@,]Z2$:C$(I)0 ,:[@,]Z3$:D$(I)A p,:[@,]Z4$: p,:E$(I)F ,8:[@,]"1 = OPRAVIT,2 = ZNOVU,M = MENU"  JN$& JN$"1" N 0 JN$"2" : JN$"M"  D  1N O,:"";A$(I):A$(I)(A$(I), )1X O,:"";B$(I):B$(I)(B$(I), )1b O,0:"";C$(I):C$(I)(C$(I), )1l O,:"";D$(I):D$(I)(D$(I),p)6q p,:"";E$(I):E$(I)(E$(I), ) v  *** 4000 LOAD ***:"LOAD DATA ":M AA [@,]" PREJETE SI PUVODNI DATA VYMAZAT A/N " AA JN$' AA JN$"A" : " AA JN$"N"  AA "JMENO SOUBORU ";JM$8[@,]"JESTLI JE VSE OK STISKNI PLAY' "  JM$T AA,KN$,Z1$,Z2$,Z3$,Z4$&:KN$","AA" KARET":"NAHRAVAM": I  AA&"T A$(I),B$(I),C$(I),D$(I),E$(I) '".";, I16-@:"SOUBOR DAT SE JMENEM ";KN$;" NAHRAN" E MU$ J LS$T LS$" " J ^  ** 5000 SAVE **:"SAVE DATA":C:[@,]"JESTLI JE VSE OK STISKNI RECORD.PLAY'" "  KN$T AA,KN$,Z1$,Z2$,Z3$,Z4$&:KN$","AA" KARET":"NAHRAVAM": I  AA&T A$(I),B$(I),C$(I),D$(I),E$(I) "."; I3:"NA PASKU NAHRAN SOUBOR DAT SE JMENEM ";KN$  MU$  LS$  LS$" "   p *** TRIDENI ***!qY: u: "TRIDENI DAT",z : [,@]"SETRIDIT PODLE : "" , : "1. ";Z1$" ,`: "2. ";Z2$" ,: "3. ";Z3$" ,0: "4. ";Z4$$ , :"VYBER? : ";R R , , d, ,,  Y{ ,(: [@,]" S E T R I D E N O ":[`,]" ": MU$ VB$: VB$""    : "TRIDENI PODLE : ";Z1$( : "V KARTOTECE JE ";AA;" KARET" I AA(  , : [`,]I J AA+ (B$(J),Y)(B$(J),Y) .8 (B$(J),Y)(B$(J),Y) YY: 6X1$B$(J):X2$A$(J):X3$C$(J):X4$D$(J):X5$E$(J)cB$(J)B$(J):A$(J)A$(J):C$(J)C$(J):D$(J)D$(J):E$(J)E$(J)Y$B$(J)X1$:A$(J)X2$:C$(J)X3$:D$(J)X4$:E$(J)X5$. J8 IB : "TRIDENI PODLE : ";Z2$( : "V KARTOTECE JE ";AA;" KARET" I AA(  , : [`,]I J AA5 (C$(J),)(C$(J),) 8 (C$(J),Y)(C$(J),Y) YY: 6X1$B$(J):X2$A$(J):X3$C$(J):X4$D$(J):X5$E$(J)cB$(J)B$(J):A$(J)A$(J):C$(J)C$(J):D$(J)D$(J):E$(J)E$(J)YB$(J)X1$:A$(J)X2$:C$(J)X3$:D$(J)X4$:E$(J)X5$ J I  d: "TRIDENI PODLE : ";Z3$(n : "V KARTOTECE JE ";AA;" KARET"x I AA(  , : [`,]I J AA5 (D$(J),)(D$(J),) 8 (D$(J),Y)(D$(J),Y) YY: 6X1$B$(J):X2$A$(J):X3$C$(J):X4$D$(J):X5$E$(J)cB$(J)B$(J):A$(J)A$(J):C$(J)C$(J):D$(J)D$(J):E$(J)E$(J)YB$(J)X1$:A$(J)X2$:C$(J)X3$:D$(J)X4$:E$(J)X5$ J I ,: "TRIDENI PODLE : ";Z4$(6 : "V KARTOTECE JE ";AA;" KARET"@ I AA(J  , : [`,]IT J AA5^ (E$(J),)(E$(J),) .8` (E$(J),Y)(E$(J),Y) YY: ^6hX1$B$(J):X2$A$(J):X3$C$(J):X4$D$(J):X5$E$(J)crB$(J)B$(J):A$(J)A$(J):C$(J)C$(J):D$(J)D$(J):E$(J)E$(J)Y|B$(J)X1$:A$(J)X2$:C$(J)X3$:D$(J)X4$:E$(J)X5$ J IX *** 7000 LIST ***b!l"V ZASOBNIKU JE "AA" KARET"/v"OD KTERE KARTY MAM ZACIT LISTOVAT ? ";VZ4 VZAA "MUZES ZADAT MAX. "AA" KARET !": v2:[@,]KN$;Z0$;VZ;".KARTA":A$(VZ)1 ,@:[@,]Z1$:B$(VZ)1 , :[@,]Z2$:C$(VZ)1 ,:[@,]Z3$:D$(VZ)B p,:[@,]Z4$: p,:E$(VZ)6 ,8:"V = VPRED, Z = ZPET, M = MENU"  JN$8 JN$"V" VZVZ: VZ(AA) VZ/ JN$"Z" VZVZ: VZ VZAA(JN$"V")(JN$"Z")  JN$"M"   #(# *** 9000 TVORBA HLAVICKY ***2#5<#[@,]"ZADAVANI HLAVICEK (.1 )*F#[@,]"Z 1"P# ,@: "";Z1$7Z#,:[@,]"Z 2"d# , : "";Z2$7n#,@:[@,]"Z 3"x# ,`: "";Z3$7#,:[@,]"Z 4"# ,: "";Z4$'# ,(: "1 ZNOVU 2 OK"# HH$: HH$"" ## HH$"1" +# HH$"2" D# HH$"2" z+' ** 10000 HLEDEJ **8':"HLEDEJ"!B'"HLEDEJ PDLE HLAVICKY:":L' " CISLO ...1"V' " ";Z1$;" ...2"`' " ";Z2$;" ...3"j' " ";Z3$;" ...4"1o' " ";Z4$;" ...5" "+t' , : "ZADEJ CISLO: ";LL$y' LL$"1" '~' LL$"2" <(' LL$"3" (' LL$"4" )' LL$"5" h) ' t'(' , :" CISLO?: ";X ' NJ<( , :" ": , :"H.1 ? ";M$F( K AAP( M$B$(K) XK: NZ( Kd( , :[@,]"KARTA NENI EVIDOVANA!": TT z: TT: , :" 1. ZNOVU, 2. MENU " n( JN$x( JN$"1" '( JN$"2"  ( n(J( , :" ": , :"H.2 ? ";M$( K AA( M$C$(K) XK: N( K( , :[@,]"KARTA NENI EVIDOVANA!": TT z: TT: , :" 1. ZNOVU, 2. MENU " ( JN$( JN$"1" '( JN$"2"  ( (J) , :" ": , :"H.3 ? ";M$) K AA) M$D$(K) XK: N") K,) , :[@,]"KARTA NENI EVIDOVANA!": TT z: TT: , :" 1. ZNOVU, 2. MENU " 6) JN$@) JN$"1" 'J) JN$"2"  T) 6)Jh) , :" ": , :"H.4 ? ";M$r) K AA|) M$E$(K) XK: N) K) , :[@,]"KARTA NENI EVIDOVANA!": TT z: TT: , :" 1. ZNOVU, 2. MENU " ) JN$) JN$"1" ') JN$"2"  ) 6) N+>N:[@,]KN$;X".KARTA":A$(X)0HN ,@:[@,]Z1$:B$(X)0RN , :[@,]Z2$:C$(X)0\N ,:[@,]Z3$:D$(X)AaN p,:[@,]Z4$: p,:E$(X)-fN ,(: "1 = ZNOVU, 2 = MENU" pN JN$zN JN$"1" 'N JN$"2"  N pNDŗ *** UVOD ***Nś@Xŏ[,`]" *** UNIVERSAL DATEI C *** "Ab @,`:[`,@]"(C) 1984 AGENTUR POFSTRAF"Dl  , :[@,]"(C) 1987 R HAJEK"5v  ,p:"KARTOTEKA PRO . 250 KARET"'  ,:"BYTES FREE=";"ō XXXX ;: XXXX ŀ