Atari 8-bit Source code

1 REM 
2 REM | |
3 REM | HRA MORRA |
4 REM 
5 REM | |
6 REM | L. Zvolensky,​ Bratislava |
7 REM 
20 GRAPHICS 0:​SETCOLOR 2,​12,​2:​SETCOLOR 4,​12,​2:​DL=PEEK(560)+256*PEEK(561):​POKE DL+6,​7:​POKE DL+7,​6:​POKE 82,​2
30 POSITION 5,​1:​PRINT "hra morra BY ."
40 PRINT:​PRINT "Hra  je pre dvoch hracov,​ a hra sa takto:​":​PRINT "Hraci ukazu naraz jeden,​ alebo dva"
50 PRINT "prsty na ruke,​ a zaroven hadaju,​ kolko prstov ukazal super. Ak obaja uhadnu,​ ake cislo hadal super,​";
60 PRINT "tak potom kolo":​PRINT "konci nerozhodne.Ak sa obidvaja mylia,​ tak potom tiez kolo konci nerozhodne."
70 PRINT "Ak vyhra jeden z hracov,​ ziska tolko bodov,​ kolko je sucet ukazanych prstov":​PRINT
80 PRINT "Stlac  pre zacatie hry........":​POKE 752,​1:​PRINT
90 IF PEEK(53279)<>6 THEN 90
100 PRINT ""
105 POSITION 5,​1:​PRINT "hra morra BY .":​POKE 752,​0:​TRAP 100:​PRINT:​PRINT "Stav je ";V;":​";M
110 PRINT:​PRINT:​PRINT "Kolko ukazete prstov :​ ";:​INPUT #16,​K:​IF K<>1 AND K<>2 THEN 100
120 PRINT "Kolko hadate prstov :​ ";:​INPUT #16,​H:​IF H<>1 AND H<>2 THEN 100
130 PRINT:​X=INT(RND(0)*4)+1:​ON X GOTO 140,​150,​160,​170
140 Y=1:​Z=2:​GOTO 180
150 Y=2:​Z=1:​GOTO 180
160 Y=1:​Z=1:​GOTO 180
170 Y=2:​Z=2
180 PRINT "Ja ukazujem :​ ";Y;" prst(y).":​PRINT "Ja hadam :​ ";Z;" prst(y).":​PRINT
190 IF H=Y AND Z=K OR H<>Y AND K<>Z THEN PRINT "Vysledok tohoto kola je nerozhodny.":​GOTO 220
200 IF H=Y THEN V=V+Y+K+Z+H:​PRINT "Vyhral ste :​ ";Y+K+Z+H;" body (ov)."
210 IF Z=K THEN ? "Vyhral som :​ ";Z+H+Y+K;" body(ov).":​M=M+Z+H+Y+K
220 PRINT:​PRINT "Hrali sme (kol) :​ ";PK+1;" | STAV - ";V;":​";M
230 PRINT:​?:​PRINT "Stlac niektoru klavesu pre hranie dal-sieho kola,​ alebo  pre ukoncenie."
240 POKE 764,​255
250 IF PEEK(764)=255 THEN 250
260 IF PEEK(764)=28 THEN GRAPHICS 0:​END
265 POKE 764,​255:​PK=PK+1
270 GOTO 100	

• Download link 1
• Download link 2