1 rem ***************************:rem 83
2 rem *  timantin metsastys 2   *:rem cd
3 rem * (c) 2022 jesse software *:rem aa
4 rem ***************************:rem 86
5 color 0,2,0:color 1,2:color 1,6,4:scnclr:rem 91
6 printtab(11)"timantin metsastys 2":rem f4
7 printtab(11)"start paina jotain":rem 4e
8 print tab(11)"nappainta":rem 2f
9 get a$:if a$<>" " then 9:rem d2
10 for a = 1 to 9:rem d3
15 for i=1 to 4:rem db
20 read p(a,i):rem d5
26 next:rem a7
30 next:rem a2
31 for a = 1 to 9:read t$(a):next:rem af
40 l=2:rem 1f
45 print t$(l):rem 0b
50 input"suunta";s$:rem cb
51 goto 5000:rem 64
52 if s$="p" then s=1:rem 2e
54 if s$="i" then s=2:rem 2a
56 if s$="e" then s=3:rem 29
58 if s$="l" then s=4:rem 33
60 if p(l,s)=0 then print"ei kay":goto 45:rem 1d
70 l=p(l,s):goto 45:rem 38
500 rem:rem 79
1000 data 0,2,0,0:rem 21
1010 data 0,3,4,1:rem 28
1020 data 0,0,0,2:rem 23
1030 data 2,0,5,0:rem 29
1040 data 4,6,0,0:rem 2d
1050 data 0,7,0,5:rem 30
1060 data 8,0,0,6:rem 33
1070 data 0,9,7,0:rem 36
1080 data 0,0,0,8:rem 2f
2000 data"olet kotona":rem 20
2010 data"olet metsassa":rem b6
2020 data"olet autotalolla":rem 98
2030 data"olet kirjastossa,naet kirjan":rem b8
2040 data"olet rannalla":rem a1
2050 data"olet postissa,naet pommin":rem f3
2060 data"olet metsatiella":rem 8f
2070 data"mies tarjoaa kyydin,naet kirjeen":rem 8b
2080 data"mies ojentaa timantin":rem bc
5000 if l<>4 then 6000:rem 43
5010 if s$="lue kirja" then ka=1:goto 45:rem a9
5020 if ka=0 then goto 45:rem 20
5030 s=0:goto 52:rem 62
6000 if l<>6 then 7000:rem 47
6020 if s$="pura pommi" then mi=1:goto 45:rem 18
6040 if mi=0 then 45:rem f4
6060 s=0:goto 52:rem 66
7000 if l<>8 then 8000:rem 4b
7020 if s$="lue kirje" then pi=1:goto 45:rem bd
7040 if pi=0 then 45:rem f8
7060 s=0:goto 52:rem 67
8000 if l<>9 then 9000:rem 4e
8020 if s$="ota timantti" then en=1:goto 8060:rem 10
8040 if en=0 then 45:rem f3
8060 print"peli loppu,hyvin pelattu":rem 32
9000 if en=0 goto 52:rem f8
9010 print"haluatko pelata uudelleen(k/e)":rem 5e
9030 input w$:rem d7
9040 if w$="k" then run:rem c7
9050 if w$<>"e" then end:rem e1