DIE HARD    

00000000: 8B 20 58 24 B2 22 41 22  A7 20 31 35 30 30 30 00  |. X$."A". 15000.|
00000010: 04 17 56 3B 8B 20 58 24  B2 22 4E 22 A7 20 31 30  |..V;. X$."N". 10|
00000020: 30 30 00 18 17 60 3B 99  C7 28 31 34 35 29 3B 3A  |00...`;..(145);:|
00000030: 89 31 35 31 36 30 00 33  17 20 4E 8F 20 3D 3D 3D  |.15160.3. N. ===|
00000040: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000050: 3D 00 4A 17 2A 4E 8F 20  20 20 20 20 5A 4D 45 4E  |=.J.*N.     ZMEN|
00000060: 41 20 41 44 52 45 53 59  00 65 17 34 4E 8F 20 3D  |A ADRESY.e.4N. =|
00000070: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000080: 3D 3D 3D 00 7C 17 39 4E  8D 20 35 30 30 3A 8B 20  |===.|.9N. 500:. |
00000090: 5A B2 30 20 A7 20 31 30  30 30 00 85 17 3E 4E 5A  |Z.0 . 1000...>NZ|
000000A0: 5A B2 31 00 8F 17 48 4E  8D 20 33 30 30 00 95 17  |Z.1...HN. 300...|
000000B0: 52 4E 99 00 A0 17 5C 4E  81 49 B2 31 A4 37 00 B6  |RN....\N.I.1.7..|
000000C0: 17 66 4E 99 49 3B 46 24  28 49 29 3B 44 24 28 5A  |.fN.I;F$(I);D$(Z|
000000D0: 5A 2C 49 29 00 BC 17 70  4E 82 00 D3 17 7A 4E A1  |Z,I)...pN....zN.|
000000E0: 20 58 24 3A 8B 20 58 24  B2 22 22 A7 32 30 30 39  | X$:. X$."".2009|
000000F0: 30 00 F4 17 84 4E 8B C6  28 58 24 29 B3 31 33 33  |0....N..(X$).133|
00000100: B0 C6 28 58 24 29 B1 31  33 36 20 A7 20 32 30 30  |..(X$).136 . 200|
00000110: 39 30 00 09 18 8E 4E 8B  20 C6 28 58 24 29 B2 31  |90....N. .(X$).1|
00000120: 33 36 A7 31 30 30 30 00  30 18 98 4E 8B 20 C6 28  |36.1000.0..N. .(|
00000130: 58 24 29 B2 31 33 33 20  AF 20 5A 5A B3 5A 20 A7  |X$).133 . ZZ.Z .|
00000140: 5A 5A B2 5A 5A AA 31 3A  89 32 30 30 34 30 00 56  |ZZ.ZZ.1:.20040.V|
00000150: 18 A2 4E 8B C6 28 58 24  29 B2 31 33 34 20 AF 20  |..N..(X$).134 . |
00000160: 5A 5A B1 31 20 A7 5A 5A  B2 5A 5A AB 31 3A 89 32  |ZZ.1 .ZZ.ZZ.1:.2|
00000170: 30 30 34 30 00 6E 18 AC  4E 8B 20 C6 28 58 24 29  |0040.n..N. .(X$)|
00000180: B2 31 33 35 20 A7 20 32  30 31 36 30 00 7A 18 B6  |.135 . 20160.z..|
00000190: 4E 89 20 32 30 30 39 30  00 80 18 C0 4E 99 00 9B  |N. 20090....N...|
000001A0: 18 CA 4E 85 22 43 49 53  4C 4F 20 50 4F 4C 45 20  |..N."CISLO POLE |
000001B0: 28 31 2D 37 29 20 22 3B  58 00 BC 18 D4 4E 8B 20  |(1-7) ";X....N. |
000001C0: 58 B3 31 B0 20 58 B1 37  20 A7 20 99 C7 28 31 34  |X.1. X.7 . ..(14|
000001D0: 35 29 3B 3A 89 32 30 31  37 30 00 C2 18 DE 4E 99  |5);:.20170....N.|
000001E0: 00 E2 18 E8 4E 85 20 22  4E 4F 56 59 20 4F 42 53  |....N. "NOVY OBS|
000001F0: 41 48 20 20 3A 20 22 3B  44 24 28 5A 5A 2C 58 29  |AH  : ";D$(ZZ,X)|
00000200: 00 ED 18 F2 4E 89 32 30  30 34 30 00 07 19 A8 61  |....N.20040....a|
00000210: 8F 20 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |. ==============|
00000220: 3D 3D 3D 3D 3D 00 1E 19  B2 61 8F 20 20 20 20 4D  |=====....a.    M|
00000230: 41 5A 41 4E 49 20 41 44  52 45 53 59 00 38 19 BC  |AZANI ADRESY.8..|
00000240: 61 8F 20 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |a. =============|
00000250: 3D 3D 3D 3D 3D 3D 00 4C  19 C6 61 8D 33 30 30 3A  |======.L..a.300:|
00000260: 8F 20 48 4C 41 56 49 43  4B 41 00 52 19 D0 61 99  |. HLAVICKA.R..a.|
00000270: 00 70 19 DA 61 8D 20 35  30 30 3A 8F 20 44 41 54  |.p..a. 500:. DAT|
00000280: 41 20 56 20 50 4F 43 49  54 41 43 49 20 3F 00 7F  |A V POCITACI ?..|
00000290: 19 DF 61 8B 20 5A B2 30  A7 31 30 30 30 00 95 19  |..a. Z.0.1000...|
000002A0: E4 61 85 20 22 4A 4D 45  4E 4F 20 20 20 3A 22 3B  |.a. "JMENO   :";|
000002B0: 44 31 24 00 AB 19 EE 61  85 20 22 50 52 49 4A 4D  |D1$....a. "PRIJM|
000002C0: 45 4E 49 3A 22 3B 44 32  24 00 B3 19 F8 61 58 B2  |ENI:";D2$....aX.|
000002D0: 31 00 D9 19 02 62 8B 20  44 24 28 58 2C 32 29 B2  |1....b. D$(X,2).|
000002E0: 44 31 24 AF 20 44 24 28  58 2C 33 29 B2 44 32 24  |D1$. D$(X,3).D2$|
000002F0: 20 A7 32 35 31 33 30 00  F0 19 0C 62 8B 20 58 B3  | .25130....b. X.|
00000300: 5A A7 58 B2 58 AA 31 3A  89 32 35 30 39 30 00 14  |Z.X.X.1:.25090..|
00000310: 1A 16 62 46 45 24 B2 22  50 52 49 4A 4D 45 4E 49  |..bFE$."PRIJMENI|
00000320: 20 4E 45 42 59 4C 4F 20  4E 41 4C 45 5A 45 4E 4F  | NEBYLO NALEZENO|
00000330: 21 22 00 23 1A 20 62 8D  32 30 30 3A 89 31 30 30  |!".#. b.200:.100|
00000340: 30 00 2E 1A 2A 62 8D 33  30 30 3A 99 00 39 1A 2F  |0...*b.300:..9./|
00000350: 62 81 49 B2 31 A4 37 00  4C 1A 34 62 99 46 24 28  |b.I.1.7.L.4b.F$(|
00000360: 49 29 3B 44 24 28 58 2C  49 29 00 52 1A 3E 62 82  |I);D$(X,I).R.>b.|
00000370: 00 58 1A 43 62 99 00 7A  1A 48 62 85 22 41 44 52  |.X.Cb..z.Hb."ADR|
00000380: 45 53 55 20 56 59 4D 41  5A 41 54 20 3F 20 28 41  |ESU VYMAZAT ? (A|
00000390: 2F 4E 29 20 22 3B 58 24  00 8F 1A 52 62 8B 20 58  |/N) ";X$...Rb. X|
000003A0: 24 B2 22 41 22 20 A7 20  32 35 32 30 30 00 A3 1A  |$."A" . 25200...|
000003B0: 5C 62 8B 20 58 24 B2 22  4E 22 20 A7 20 31 30 30  |\b. X$."N" . 100|
000003C0: 30 00 B7 1A 66 62 99 C7  28 31 34 35 29 3B 3A 89  |0...fb..(145);:.|
000003D0: 32 35 31 36 30 00 C4 1A  70 62 81 59 B2 58 A4 5A  |25160...pb.Y.X.Z|
000003E0: AB 31 00 D0 1A 7A 62 81  20 49 B2 31 A4 37 00 E6  |.1...zb. I.1.7..|
000003F0: 1A 84 62 44 24 28 59 2C  49 29 B2 44 24 28 59 AA  |..bD$(Y,I).D$(Y.|
00000400: 31 2C 49 29 00 ED 1A 8E  62 82 49 00 F4 1A 98 62  |1,I)....b.I....b|
00000410: 82 59 00 FE 1A A2 62 5A  B2 5A AB 31 00 08 1B AC  |.Y....bZ.Z.1....|
00000420: 62 89 31 30 30 30 00 21  1B 30 75 8F 20 3D 3D 3D  |b.1000.!.0u. ===|
00000430: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 00  |===============.|
00000440: 36 1B 3A 75 8F 20 20 20  20 56 59 50 49 53 20 41  |6.:u.    VYPIS A|
00000450: 44 52 45 53 00 4F 1B 44  75 8F 20 3D 3D 3D 3D 3D  |DRES.O.Du. =====|
00000460: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 00 5A 1B  |=============.Z.|
00000470: 4E 75 8D 33 30 30 3A 99  00 63 1B 58 75 8D 35 30  |Nu.300:..c.Xu.50|
00000480: 30 00 71 1B 62 75 8B 5A  B2 30 A7 31 30 30 30 00  |0.q.bu.Z.0.1000.|
00000490: 9B 1B 6C 75 85 22 54 49  53 4B 41 52 4E 41 20 4E  |..lu."TISKARNA N|
000004A0: 45 42 4F 20 4F 42 52 41  5A 4F 56 4B 41 20 3F 28  |EBO OBRAZOVKA ?(|
000004B0: 54 2F 4F 29 20 22 3B 47  24 00 C1 1B 76 75 8B 47  |T/O) ";G$...vu.G|
000004C0: 24 B3 B1 22 4F 22 20 AF  47 24 B3 B1 22 54 22 A7  |$.."O" .G$.."T".|
000004D0: 99 C7 28 31 34 35 29 3B  3A 89 33 30 30 36 30 00  |..(145);:.30060.|
000004E0: D2 1B 7B 75 8B 47 24 B2  22 54 22 A7 9F 31 2C 34  |..{u.G$."T"..1,4|
000004F0: 00 DD 1B 80 75 8D 33 30  30 3A 99 00 F3 1B 8A 75  |....u.300:.....u|
00000500: 99 22 48 4C 45 44 41 4E  45 20 50 4F 4A 4D 59 3A  |."HLEDANE POJMY:|
00000510: 22 00 09 1C 94 75 99 22  2D 2D 2D 2D 2D 2D 2D 2D  |"....u."--------|
00000520: 2D 2D 2D 2D 2D 2D 22 00  0F 1C 9E 75 99 00 25 1C  |------"....u..%.|
00000530: A8 75 81 49 B2 31 A4 37  3A 53 24 28 49 29 B2 22  |.u.I.1.7:S$(I)."|
00000540: 22 3A 82 00 30 1C B2 75  81 49 B2 31 A4 37 00 3C  |":..0..u.I.1.7.<|
00000550: 1C BC 75 99 46 24 28 49  29 3B 00 48 1C C6 75 85  |..u.F$(I);.H..u.|
00000560: 20 53 24 28 49 29 00 4E  1C D0 75 82 00 59 1C DA  | S$(I).N..u..Y..|
00000570: 75 81 59 B2 31 A4 5A 00  61 1C E4 75 53 B2 30 00  |u.Y.1.Z.a..uS.0.|
00000580: 6C 1C EE 75 81 49 B2 31  A4 37 00 89 1C F8 75 8B  |l..u.I.1.7....u.|
00000590: 20 53 24 28 49 29 B2 22  22 A7 53 B2 53 AA 31 3A  | S$(I)."".S.S.1:|
000005A0: 89 20 33 30 32 32 30 00  AF 1C 02 76 8B C8 28 44  |. 30220....v..(D|
000005B0: 24 28 59 2C 49 29 2C C3  28 53 24 28 49 29 29 29  |$(Y,I),.(S$(I)))|
000005C0: B2 53 24 28 49 29 A7 20  53 B2 53 AA 31 00 B7 1C  |.S$(I). S.S.1...|
000005D0: 0C 76 82 20 49 00 C8 1C  16 76 8B 53 B3 B1 37 A7  |.v. I....v.S..7.|
000005E0: 20 33 30 33 30 30 00 D7  1C 20 76 8B 47 24 B2 22  | 30300... v.G$."|
000005F0: 54 22 A7 98 31 00 EA 1C  25 76 8B 47 24 B2 22 4F  |T"..1...%v.G$."O|
00000600: 22 A7 8D 33 30 30 3A 99  00 F5 1C 2A 76 81 49 B2  |"..300:....*v.I.|
00000610: 31 A4 37 00 10 1D 34 76  8B 47 24 B2 22 4F 22 A7  |1.7...4v.G$."O".|
00000620: 99 46 24 28 49 29 3B 44  24 28 59 2C 49 29 00 2E  |.F$(I);D$(Y,I)..|
00000630: 1D 3E 76 8B 20 47 24 B2  22 54 22 A7 98 31 2C 46  |.>v. G$."T"..1,F|
00000640: 24 28 49 29 3B 44 24 28  59 2C 49 29 00 36 1D 48  |$(I);D$(Y,I).6.H|
00000650: 76 82 20 49 00 48 1D 4D  76 8B 47 24 B2 22 54 22  |v. I.H.Mv.G$."T"|
00000660: A7 33 30 33 30 30 00 65  1D 52 76 99 3A 85 22 53  |.30300.e.Rv.:."S|
00000670: 54 49 53 4B 4E 45 54 45  20 52 45 54 55 52 4E 22  |TISKNETE RETURN"|
00000680: 3B 58 24 00 6D 1D 5C 76  82 20 59 00 7A 1D 66 76  |;X$.m.\v. Y.z.fv|
00000690: 8D 33 30 30 3A 99 3A 99  00 93 1D 70 76 99 22 4B  |.300:.:....pv."K|
000006A0: 4F 4E 45 43 20 53 4F 55  42 4F 52 55 20 44 41 54  |ONEC SOUBORU DAT|
000006B0: 22 00 AE 1D 7A 76 85 22  53 54 49 53 4B 4E 45 54  |"...zv."STISKNET|
000006C0: 45 20 52 45 54 55 52 4E  22 3B 58 24 00 C0 1D 84  |E RETURN";X$....|
000006D0: 76 8B 20 47 24 B2 22 54  22 A7 20 A0 20 31 00 CB  |v. G$."T". . 1..|
000006E0: 1D 8E 76 89 20 31 30 30  30 00 E5 1D B8 88 8F 20  |..v. 1000...... |
000006F0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000700: 3D 3D 3D 00 FE 1D C2 88  8F 20 20 55 4B 4F 4E 43  |===......  UKONC|
00000710: 45 4E 49 20 50 52 4F 47  52 41 4D 55 00 18 1E CC  |ENI PROGRAMU....|
00000720: 88 8F 20 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |.. =============|
00000730: 3D 3D 3D 3D 3D 3D 00 23  1E D6 88 8D 33 30 30 3A  |======.#....300:|
00000740: 99 00 32 1E E0 88 8B 5A  B2 30 A7 33 35 31 35 30  |..2....Z.0.35150|
00000750: 00 5D 1E EA 88 99 22 4A  53 4F 55 20 56 53 45 43  |.]...."JSOU VSEC|
00000760: 48 4E 41 20 44 41 54 41  20 5A 41 4A 49 53 54 45  |HNA DATA ZAJISTE|
00000770: 4E 41 3F 20 28 41 2F 4E  29 22 3B 00 65 1E F4 88  |NA? (A/N)";.e...|
00000780: 85 58 24 00 76 1E FE 88  8B 58 24 B2 22 4E 22 A7  |.X$.v....X$."N".|
00000790: 31 30 30 30 00 88 1E 08  89 8B 58 24 B2 22 41 22  |1000......X$."A"|
000007A0: A7 33 35 31 30 30 00 9D  1E 12 89 99 C7 28 31 34  |.35100.......(14|
000007B0: 35 29 3B 3A 89 20 33 35  30 35 30 00 A6 1E 1C 89  |5);:. 35050.....|
000007C0: 8D 33 30 30 00 CB 1E 26  89 99 22 50 52 4F 47 52  |.300...&.."PROGR|
000007D0: 41 4D 20 4D 55 5A 45 20  42 59 54 20 4F 50 45 54  |AM MUZE BYT OPET|
000007E0: 20 53 50 55 53 54 45 4E  22 00 F2 1E 30 89 99 22  | SPUSTEN"...0.."|
000007F0: 50 4F 4D 4F 43 49 20 27  47 4F 54 4F 20 31 30 30  |POMOCI 'GOTO 100|
00000800: 30 27 2C 41 4E 49 5A 20  42 59 20 42 59 4C 41 22  |0',ANIZ BY BYLA"|
00000810: 00 08 1F 3A 89 99 22 44  41 54 41 20 5A 4E 49 43  |...:.."DATA ZNIC|
00000820: 45 4E 41 20 21 22 00 0E  1F 44 89 99 00 14 1F 4E  |ENA !"...D.....N|
00000830: 89 80 00 21 1F 40 9C 81  41 B2 30 A4 32 35 35 00  |...!.@..A.0.255.|
00000840: 2B 1F 28 A0 99 C7 28 41  29 00 32 1F 29 A0 99 41  |+.(...(A).2.)..A|
00000850: 00 41 1F 10 A4 81 53 B2  30 A4 34 30 3A 82 53 00  |.A....S.0.40:.S.|
00000860: 48 1F F8 A7 82 41 00 00  00                       |H....A...       |

. X$."A". 15000...V;. X$."N". 1000...`;.
G(145);:.15160.3. N. ===================
=.J.*N.     ZMENA ADRESY.E.4N. =========
===========.|.9N. 500:. Z.0 . 1000...>NZ
Z.1...HN. 300...RN.. .\N.I.1.7...FN.I;F$
(I);D$(ZZ,I)...PN..S.ZN. X$:. X$."".2009
0....N.F(X$).133.F(X$).136 . 20090....N.
 F(X$).136.1000.0..N. F(X$).133 . ZZ.Z .
ZZ.ZZ.1:.20040.V..N.F(X$).134 . ZZ.1 .ZZ
.ZZ.1:.20040.N..N. F(X$).135 . 20160.Z..
N. 20090....N....JN."CISLO POLE (1-7) ";
X...TN. X.1. X.7 . .G(145);:.20170.B..N.
....N. "NOVY OBSAH  : ";D$(ZZ,X)....N.20
040....A. ===================....A.    M
AZANI ADRESY.8..A. ===================.L
.FA.300:. HLAVICKA.R.PA..P.ZA. 500:. DAT
A V POCITACI ?...A. Z.0.1000....A. "JME
NO   :";D1$....A. "PRIJMENI:";D2$....AX.
1.Y..B. D$(X,2).D1$. D$(X,3).D2$ .25130.
...B. X.Z.X.X.1:.25090....BFE$."PRIJMENI
 NEBYLO NALEZENO!".#. B.200:.1000...*B.3
00:..9./B.I.1.7.L.4B.F$(I);D$(X,I).R.>B.
.X.CB..Z.HB."ADRESU VYMAZAT ? (A/N) ";X$
...RB. X$."A" . 25200...\B. X$."N" . 100
0...FB.G(145);:.25160.D.PB.Y.X.Z.1.P.ZB.
 I.1.7....BD$(Y,I).D$(Y.1,I)....B.I....B
.Y....BZ.Z.1....B.1000.!.0U. ===========
=======.6.:U.    VYPIS ADRES.O.DU. =====
=============.Z.NU.300:..C.XU.500.Q.BU.Z
.0.1000...LU."TISKARNA NEBO OBRAZOVKA ?(
T/O) ";G$.A.VU.G$.."O" .G$.."T"..G(145);
:.30060.R.{U.G$."T"..1,4....U.300:.....U
."HLEDANE POJMY:"....U."--------------".
...U..%..U.I.1.7:S$(I)."":..0..U.I.1.7.<
..U.F$(I);.H.FU. S$(I).N.PU..Y.ZU.Y.1.Z.
A..US.0.L..U.I.1.7....U. S$(I)."".S.S.1:
. 30220....V.H(D$(Y,I),C(S$(I))).S$(I). 
S.S.1....V. I.H..V.S..7. 30300.W. V.G$."
T"..1...%V.G$."O"..300:....*V.I.1.7...4V
.G$."O"..F$(I);D$(Y,I)...>V. G$."T"..1,F
$(I);D$(Y,I).6.HV. I.H.MV.G$."T".30300.E
.RV.:."STISKNETE RETURN";X$.M.\V. Y.Z.FV
.300:.:....PV."KONEC SOUBORU DAT"...ZV."
STISKNETE RETURN";X$....V. G$."T".   1.K
..V. 1000...... ===================...B.
.  UKONCENI PROGRAMU...L.. =============
======.#.V..300:..2....Z.0.35150.]...."J
SOU VSECHNA DATA ZAJISTENA? (A/N)";.E...
.X$.V....X$."N".1000......X$."A".35100..
....G(145);:. 35050......300.K.&.."PROGR
AM MUZE BYT OPET SPUSTEN"...0.."POMOCI '
GOTO 1000',ANIZ BY BYLA"...:.."DATA ZNIC
ENA !"...D.....N...!.@..A.0.255.+.( .G(A
).2.) .A.A....S.0.40:.S.H....A...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL