64'er 1993 April/64er_Magazin_93-04_1993_Markt__Technik_de_Side_A.d64/minefield

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

0 print"[184]%[146]a)[187]e[146]a)[146]he[191] [146]@9[146]@[208]y[146]@0[200][208][183][174][146]od[174][146]rd[198][191][208][171]%[146]aide[146]a[216])[146]\m[146]x";
1 print"[208] [146] 9[146]:dy[191][146]2h[208][183]l[146]![208][146][160]<[190]yy[191]=[195][146][190]@@[190][191]+[191][191][191][146]xx[190][190]xxx<[189]?[183]?[189][183]=[191]":sys4^5
2 o=53280:pokeo,0:m=2:x=19:p=1e3:forl=1to25:pokeo-15,0:dimf(38,25):restore:y=24
3 readf$,t$:forw=69-3*lto159:a=37*rnd(1)+1:b=20*rnd(0)+3:f(a,b)=1:next:f(a,b)=5
4 n=0:fora=1to8:readc,a$:forb=1toc:printa$;:next:next:poke1984+x,96:fori=1to37
5 f$=f$+"[163]":next:v=-1:print"":fori=1to22:printf$:next:fori=0tol:a=37*rnd(0)+1
6 poke211,a:poke214,22*rnd(1)+2:sys58640:print"[158][161]":next:pokeo-15,27:data" [149][146]"
7 on-(p<0)goto19:l$=right$(str$(l+1e2),2):p$=right$(str$(int(p)+1e6),6)
8 p=p-.1:print"[156]mines:"n"[146]level:"l$"[156]score:"p$" toms:"m:q=fre(0)
9 j=peek(56320):on-(j=127)goto7:s=0:r=-1:on-(j=123)goto11:r=1:on-(j=119)goto11
10 r=0:s=-1:on-(j=126)goto11:s=1:on(j=125)+2goto11,7:data"game over",1,"[147]"
11 h=1024+40*(y+s)+x+r:on-(peek(h)=wory+s>23)goto9:ifpeek(h)=98thenp=p-50
12 poke1024+40*y+x,32:x=x+r:y=y+s:p=p+333*abs(peek(h)=97):v=-v:pokeh,96
13 poke54272+h,5:poke54296,v+1:on-(y=1)goto17:p=p-1:iff(x,y)<>1then15
14 f(x,y)=0:pokeh,98:poke54272+h,15:x=19:y=24:m=m-1:onm+2goto19:poke1984+x,96
15 n=f(x-1,y)+f(x+1,y)+f(x,y-1)+f(x,y+1):data18," ",2,"[146] ",18," ",23," [157]",19
16 n=n+5*(n>3):on-(f(x,y)<2)goto7:f(x,y)=0:m=m+1:fori=1tow:pokeo,i/5:next:goto7
17 poke198,1:wait198,1:pokeo,1:p=p+2000:poke49,peek(47):poke50,peek(48):pokeo,0
18 next:on-(p<10^5)goto19:t$="[150][157][157][157][157]*congratulations*":data" [157][157]",2,"[157]",18," [157][157]"
19 print"",""t$,,,"[159]press any key!":poke198,0:wait198,1:run2