64'er 1990 February/64er_Magazin_90-02_1990_Markt__Technik_de_Side_B.d64/pferderennen

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

1 print"[147]@@@@@@@@@@@@@f@@f@@d@@nx@m[190]@n[191][146]c[191][176][146]?[191][160][199][191][192][146]g[191]@[146]a[191][146]@ac[146]@aa[146]@a";
2 print"[193][146]@a[179]@@v[146]@@[194]@@@@@@@@@@@@@@@@@@[192][146]@@[192][146]@c@@fl[146]@n[190][192][191][191][146]?[191][179][146]g[191][192][146]g[191]";
3 print"@[146]a[191][146]@a[192][146]@aa@[146]c@[192][146]a@ [146]b@[146][208]b@@":fora=0to62:poke896+a,peek(1087+a)
4 poke832+a,peek(4^5+a):next:v=53248:pokev+21,0:pokev+23,0:pokev+29,0:fora=0to7
5 pokev+a*2+1,50+a*24:pokev+39+a,9:next:pokev+32,0:pokev+33,0:p(0)=13:p(1)=14
6 print"[147]"spc(13)"pferde-rennen[154]":c$=chr$(13)+"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
7 j=j+1:g(j)=5^6:print"na."j" ";:inputn$(j):on-(n$(j)<>"")goto7:c$=c$+"[163][163][163][163][163][163][163]"
8 input"tage";r:j=j-1:fort=1tor:print"[147]tag"t"":fora=0to7:q(a)=int(rnd(1)*5)+2
9 print"pf."a+1"   1:";q(a):z(a)=0:s(a)=24:next:print:fora=1toj:printn$(a);:w=0
10 inputi(a):print"-"g(a)"dm";:inputm(a):next:print"[147]";:fora=1to8:printc$;:next
11 pokev+21,255:fora=0to7:s(a)=s(a)+int(rnd(1)*(40-q(a)))/3.3:ifz(a)<>0then14
12 ifs(a)>=255thenpokev+39+a,1:w=w+1:z(a)=w:pokev+a*2,255:poke2040+a,13:goto14
13 poke2040+a,p(abs(c)):pokev+2*a,s(a)
14 pokev+39+a,9:ifw<8thennext:c=c=0:goto11
15 print"[147]":pokev+21,0:fora=0to7:print"pferd"a+1"[157] [146] : [154]platz"z(a);
16 print"  quote : 1 -";q(a):next:printc$"[163][163]":fora=0to7:pokev+a*2,24:next
17 print"":fora=1toj:g=0:print"[154]"n$(a)":";:ifz(i(a)-1)>3thenprint"[150]nix":goto19
18 z=z(i(a)-1):g=int((m(a)*q(i(a)-1))/z):print"[150]gewinnt";g;"dm mit pf."i(a)"."
19 g(a)=g(a)-m(a)+g:nexta:wait198,1:poke198,0:print"[147][158]bisher resultat:"
20 fora=1toj:print"[154]"n$(a)"'s geld :[153]"g(a)"dm":next:wait198,1:poke198,0:nextt