OKO
Gra ta jest komputerową wersją karcianej gry o tej samej nazwie, znanej też jako "dwadzieścia jeden". Ogólnie rzecz biorąc polega ona na zebraniu takiej liczby punktów, która byłaby najbliższa 21, lecz nie większa. Każda karta jest odpowiednio punktowana i grający na zmianę (o ile oczywiście sobie tego życzą) pobierają z banku po jednej karcie. Punktacja kart jest następująca:
od dwójki do dziewiątki - według liczby na karcie,
od dziesiątki do króla 10 punktów,
as - 11 punktów.
Zwycięstwo w grze daje graczowi 1 "duży" punkt. Chyba, że miał on "oczko", to wtedy dostaje aż 3 takie punkty. Osiągnięcie przez gracza lub komputer maksymalnej liczby "dużych" punktów powoduje rozstrzygnięcie: kto został zwycięzcą całej gry.
Opis klawiszy sterujących:
Na planszy tytułowej klawiszami kursora (bez CONTROL) ustala się pułap "dużych" punktów. Każdy inny klawisz z wyjątkiem ESC powoduje uruchomienie gry. Wyżej wspomniany ESC, naciśnięty w dowolnym momencie, służy do opuszczenia gry. W trakcie rozgrywki klawiszem CLEAR można powrócić do planszy tytułowej. Następną kartę pobiera się przez naciśnięcie RETURN, natomiast SPACE oznacza zakończenie pobierania kart przez gracza.
1000 REM *--------------------------*
1002 REM : "Oczko" :
1004 REM : Autor: Dariusz Zolna :
1006 REM : (c) 1991 Tajemnice Atari :
1008 REM *--------------------------*
1010 DATA FFFF008804926820F38CA9FF8D
1020 DATA FC02ADFC02C9FFF0F98DA68EAD
1030 DATA A78EAEA68EE00FD00338E90AE0
1040 DATA 0ED00318690AE006D00338E901
1050 DATA E007D0031869018DA78EC90AB0
1060 DATA 05A90A8DA78EC9643005A9638D
1070 DATA A78EA9BAA000208F8DADA78E20
1080 DATA 868CA001B1B099428F8810F8AD
1090 DATA A68EC906F09CC907F098C90EF0
1100 DATA 94C90FF090C91CD0034C328DA9
1110 DATA A5A000208F8DA01EB9559191B0
1120 DATA 8810F820208CA9008D9C8E8D9D
1130 DATA 8EADA08ED003200E8BADA18ED0
1140 DATA 0320A48AADA58EF00620328D6C
1150 DATA 0A00ADA88EF00620328D4C0188
1160 DATA ADA08EF0D5ADA18EF0D020908A
1170 DATA A9008DA48EA9F6A000208F8DAD
1180 DATA A48E0A186DA48E65B085B0ADA4
1190 DATA 8E0A6DA48EAAE8E8A002BDDB8E
1200 DATA 99958ECA8810F6A9A985B2A98E
1210 DATA 85B3209C8BEEA48EADA48ECD9E
1220 DATA 8E30C1A9DAA002208F8DA01CB1
1230 DATA B09938918810F8A91785B2A98F
1240 DATA 85B3A9018DA28EAD9B8EC916B0
1250 DATA 0DA92285B2A98F85B3A9008DA2
1260 DATA 8EAD9A8EC915D010A9F685B2A9
1270 DATA 8E85B3A9038DA28E4C9B89AD9A
1280 DATA 8EC9163010A90185B2A98F85B3
1290 DATA A9008DA28E4C9B89AD9A8ECD9B
1300 DATA 8ED010A90C85B2A98F85B3A900
1310 DATA 8DA28E4C9B89AD9A8ECD9B8E30
1320 DATA 0DA91785B2A98F85B3A9018DA2
1330 DATA 8EA9FE18693085B0A990690085
1340 DATA B1A009B1B291B08810F9A91785
1350 DATA B2A98F85B3A9018DA38EAD9A8E
1360 DATA C916B00DA92285B2A98F85B3A9
1370 DATA 008DA38EAD9B8EC915D010A9F6
1380 DATA 85B2A98E85B3A9038DA38E4C2D
1390 DATA 8AAD9B8EC9163010A90185B2A9
1400 DATA 8F85B3A9008DA38E4C2D8AAD9B
1410 DATA 8ECD9A8ED010A90C85B2A98F85
1420 DATA B3A9008DA38E4C2D8AAD9B8ECD
1430 DATA 9A8E300DA91785B2A98F85B3A9
1440 DATA 018DA38EA9FE18692185B0A990
1450 DATA 690085B1A009B1B291B08810F9
1460 DATA ADA28E186D9D8E8D9D8EADA38E
1470 DATA 186D9C8E8D9C8EA9A8A000208F
1480 DATA 8DAD9C8E20868CA9BFA000208F
1490 DATA 8DAD9D8E20868CAD9C8ECDA78E
1500 DATA 30034CA78CAD9D8ECDA78E3003
1510 DATA 4CA78C20588D20208C4C9788A9
1520 DATA FE18691385B0A990690085B1AD
1530 DATA 9A8E20868C60AD9A8EC9113006
1540 DATA A9FF8DA18E608D998E20E18BAD
1550 DATA 998E8D9A8EA9F6A000208F8DAD
1560 DATA 9E8E0A186D9E8E65B085B0A900
1570 DATA 65B185B1AD9E8E0A6D9E8EAAE8
1580 DATA E8A002B9958E9DDB8ECA8810F6
1590 DATA A9C285B2A98E85B3A204A004B1
1600 DATA B291B08810F9209A8DA90520A8
1610 DATA 8DCA10ECEE9E8E6020FDF2ADFB
1620 DATA 02C99BF01EC91BF00EC93CF010
1630 DATA C920D0EAA9FF8DA08E60A9FF8D
1640 DATA A58E60A9FF8DA88E60AD9B8E8D
1650 DATA 998E20E18BAD998E8D9B8EC916
1660 DATA 9005A9FF8DA08EA5581869E685
1670 DATA B0A559690185B1AD9F8E0A186D
1680 DATA 9F8E65B085B0A90065B185B1A9
1690 DATA A985B2A98E85B3209C8BA9FE18
1700 DATA 690485B0A990690085B1AD9B8E
1710 DATA 20868CA9DAA002208F8DAD9B8E
1720 DATA 20868CEE9F8E60AD968EA00291
1730 DATA B2A01791B2AD958EA00191B2A0
1740 DATA 16AE968EE080D001C891B2AD97
1750 DATA 8EA00691B2A01291B2A204A004
1760 DATA B1B291B08810F9209A8DA90520
1770 DATA A88DCA10ECA9808DBF8E60AD0A
1780 DATA D2293FC934B0F78D988EA8B95E
1790 DATA 8ED0EEA9FF995E8EAD988E0A18
1800 DATA 6D988EAAE8E8A002BDB48D9995
1810 DATA 8ECA8810F6AD988E4A4AA8B950
1820 DATA 8E186D998E8D998E60A035A900
1830 DATA 995E8E8810FA8DA08EA9D6A002
1840 DATA 208F8DA01CB9FE9091B08810F8
1850 DATA A9F6A000208F8DA20AA01CA900
1860 DATA 91B08810F9209A8DCA10F1A9BE
1870 DATA A001208F8DA01CA95291B08810
1880 DATA FBA90C8DFC02A9008DA08E8DA1
1890 DATA 8E8D9F8E8D9E8E8D9A8E8D9B8E
1900 DATA 8DA58E8DA88E6085D4A90085D5
1910 DATA 20AAD920E6D8A000B980058DA4
1920 DATA 8E291F098091B0C8ADA48E10EE
1930 DATA 60A9F6A000208F8DAD9D8ECD9C
1940 DATA 8E300320D48CA9E6A001208F8D
1950 DATA AD9C8ECD9D8E300320D48C2058
1960 DATA 8D20328D4C0188A97485B2A991
1970 DATA 85B3A204A01CB1B291B08810F9
1980 DATA A91D20A88D209A8DCA10EC60A9
1990 DATA A5A000208F8DA92D85B2A98F85
2000 DATA B3A90585B4A99285B5A20EA01E
2010 DATA B1B091B4B1B291B08810F5209A
2020 DATA 8DA91F20A88DA5B418691F85B4
2030 DATA A5B5690085B5CA10DB60A9A5A0
2040 DATA 00208F8DA90585B2A99285B3A2
2050 DATA 0EA01EB1B291B08810F9209A8D
2060 DATA A91F20A88DCA10EC60A9D6A002
2070 DATA 208F8DA9FF8DFC02ADFC02C9FF
2080 DATA D00620778D4C648DA20020818D
2090 DATA 60A200A5142920D002A21DA000
2100 DATA BDFE9091B0E8C8C01D30F56018
2110 DATA 655885B098655985B160A5B018
2120 DATA 692885B0A5B1690085B1601865
2130 DATA B285B2A90065B385B360A1F3C0
2140 DATA A1F3E0A1F3D0A1F3FBAB80C0AB
2150 DATA 80E0AB80D0AB80FBB180C0B180
2160 DATA E0B180D0B180FBAA80C0AA80E0
2170 DATA AA80D0AA80FB9190C09190E091
2180 DATA 90D09190FB9980C09980E09980
2190 DATA D09980FB9880C09880E09880D0
2200 DATA 9880FB9780C09780E09780D097
2210 DATA 80FB9680C09680E09680D09680
2220 DATA FB9580C09580E09580D09580FB
2230 DATA 9480C09480E09480D09480FB93
2240 DATA 80C09380E09380D09380FB9280
2250 DATA C09280E09280D09280FB0B0A0A
2260 DATA 0A0A0908070605040302010000
2270 DATA 00000000000000000000000000
2280 DATA 00000000000000000000000000
2290 DATA 00000000000000000000000000
2300 DATA 00000000000000000000000000
2310 DATA 00A1F3C0000000000000000000
2320 DATA 0000000000001400D980808059
2330 DATA D980808059D980808059D98080
2340 DATA 8059D980808059D9D7D2D759D9
2350 DATA FCD3FC59D9D3FCD359D9FCD3FC
2360 DATA 59D9D8D2D85980808080808080
2370 DATA 80808080808080808080808080
2380 DATA 8080808080808081818180AFEB
2390 DATA EF80818181A6F5F2E180808080
2400 DATA 808080B2E5EDE9F38080808080
2410 DATA 80B7F9E7F2E1EEF980808080B0
2420 DATA F2FAE5E7F2E1EEF98080CC8080
2430 DATA 8080ABEFEEE3FAE1E3F980F7F9
2440 DATA EEE9EB9A809290808080808080
2450 DATA 80CBC9D5D5D5D5D5D5D5D5D5D5
2460 DATA D5D5D5D5D5D5D5D5D5D5D5D5D5
2470 DATA D5D5D5D5D5D5CF590000000000
2480 DATA CC80CB00CC80CB008080800080
2490 DATA 498000CC80CB0000000000D959
2500 DATA 00D2D2D2008000800080000000
2510 DATA 49C900008080590080008000D2
2520 DATA D2D200D9590000000000CF80C9
2530 DATA 00CF80C90080808000804B8000
2540 DATA CF80C90000000000D959000000
2550 DATA 00000000000000000000000000
2560 DATA 00000000000000000000000000
2570 DATA D9598A8ACD55554E4E5555CD00
2580 DATA 246C61000234616A656D6E6963
2590 DATA D9AA808059D9598A8A8A8A8ACE
2600 DATA CED5D54D000000000000000021
2610 DATA 7461726902D9FB808059D9598A
2620 DATA 8A8A8A8A4E4E5555CD006E6170
2630 DATA 6973616C000000000000D98080
2640 DATA 8059D95900004DD5D5CECED5D5
2650 DATA 4D000000000000246172697573
2660 DATA 7A00D98080FB59D9598080CD55
2670 DATA 554E4E5555CD00000000000000
2680 DATA 3A6F6C6E610000D98080AA59D9
2690 DATA 5900004DD5D5CECED5D54D0000
2700 DATA 00000000000000000000000000
2710 DATA 00000000D95900000000000000
2720 DATA 0000086309002465002A657400
2730 DATA 12170E10180E191100D9CB5555
2740 DATA 55555555555555555555555555
2750 DATA 55555555555555555555555555
2760 DATA 55CCCF808080808080A8F5EBEE
2770 DATA E9EA80F780EBECE1F7E9F3FAE5
2780 DATA 808080808080C980B4F99A8080
2790 DATA 808080808080808080A3F0F59A
2800 DATA 8080808080808080808080B4F9
2810 DATA 9A8080808080808080808080A3
2820 DATA F0F59A80808080808080808080
2830 DATA 80808080808080808080808080
2840 DATA 80808080808080808080808080
2850 DATA 808080CC80809090808D8D8D80
2860 DATA 80AF80E380FA80EB80EF80808D
2870 DATA 8D8D8090908080CB8080598000
2880 DATA D9598000804980CBD959808059
2890 DATA 808059CC80CB498080008000CC
2900 DATA 4C8000D959CF80C9D95900D959
2910 DATA 80550000CC4C800000D959D959
2920 DATA 80CC4C0080D9D959008000D959
2930 DATA 00D95980D500CC4C00800000D9
2940 DATA 80805980808059CFC9804C0080
2950 DATA 004B80C9D959808059808059CF
2960 DATA 80C9D959D95955000000000000
2970 DATA 00000000000000000000CB4F00
2980 DATA 00000000000000000000E002E1
2990 DATA 020188
|
Dariusz Żołna
|