64'er/64ER_CD.iso/89xx/8907a.d64/pferderennen

Commodore BASIC | 1995-03-30 | 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