Opisi: -------- (Svet Kompjutera, #8, Avgust 1985, LList Galaksija, Nenad Balint) ------------------------------------------------------------------- Ovaj program simulira popularnu igru kartama poker između računara galaksija, i jednog igraća. Igra se sa špilom od 32 karte. Na početku igre i računar i igrač imaju po $10000. Ulog po partiji je ograničen na $1000 pri čemu je početni ulog $10. U svakom ciklusu licitiranja ulog se ne može povećati za više od $50. Važe uobičajena pravila pokera za procenu jačine karata (par, dva para, kenta, triling, ful, poker, boja). Na početku Igre je potrebno da se igrač predstavi računaru, a zatim računar deli karte. Pošto računar prikaže karte koje je podelio igraču, igrač može promeniti onu kartu koju želi kucajući njen broj 11-5). Kada igrač promeni karte koje je želeo (a može da promeni maksimalno 4 karte), kuca 0. Posle toga računar deli sebi karte I menja one koje želi. Zatim počinje licitiranje. Igrač licitira koliko želi da uloži ($1-$50). Računar može da prihvati ulog (tada prikazuje svoje karte), da poveća ulog (tada igrač može da prati trenutno stanje uloga u gornjem desnom uglu ekrana) ili da ne prihvati ulog (tada računar registruje da je igrač pobedio i ne prikazuje svoje karte). Igrač može u bilo kom trenutku da odustane od licitiranja i otkuca 0 (tada gubi ulog i računar registruje da je on pobedio). Ako igrač želi da prihvati računarov ulog i ne želi da licitira dalje, on ulaže onoliko koliko je računar poslednji put podigao ulog. Posle toga računar prikazuje svoje karte u gornjem desnom uglu, registruje pobednika i prikazuje koliko ko ima deviza posle te partije. Na pitanje "Da li igrate još jednu partiju?" igrač može da odgovori sa "D" ili "N". Ako odgovori sa "D" posle izvesnog vremena računar će prikazati koje je karte podelio igraču i igra počinje od početka. Igra se završava ukoliko neko (računar ili igrač) ostane švorc ili ako igrač odustane od dalje igre. Uputstvo za kucanje programa: Zbog dužine programa potrebno je da se naredbe kucaju u skraćenom obliku kako su date u listingu programa. Korisniku je ostavljeno prvih 350 linija ako želi da doda neka uputstva neophodna za njegovo razumevanje igre. Ako se korisnik odluči za to, a nema proširenje memorije preporučujemo mu izuzetan oprez, jer mu za proširivanje programa ostaje svega 219 bajtova (651 slobodan bajt minus 304 bajta za numerički niz i minus 128 bajtova za alfanumerički niz daje 219 bajtova). Za vlasnike galaksije koji nemaju ROM-2 potrebno je da modifikuju liniju 704 tako što će izbaciti poziv funkcije LN. Izmenjena naredba bi trebala ovako da izgleda: U=U+I.(R*129) Zbog prirode igre, igračima želimo puno strpljenja i još više sreće!