0 (null)$8100 1 DIMX(12):DIMY(12):DIMM2(50):DIMM3(50):DIMI$(36):PRINT"[147]":(null)0,0 2 PRINT(null)12,12"TSS PRAESENTIERT:" 3 FORR=1TO6:READC(R):NEXT:FORR=0TO63:READQ:POKE49152+R,Q:NEXT:POKE53240,0 :Q=0 4 FORR=1TO12:READX(R):NEXT:FORR=1TO12:READY(R):NEXT:POKE52216,11 5 FORR=1TO6:READK(R):NEXT 6 FORR=1TO4:READC$(R):NEXT:REM BERUFE 7 FORR=1TO7:READM(R):NEXT:REM MELODIE1 8 FORR=1TO43:READM2(R):READM3(R):NEXT:REM MELODIE2 9 GE=800:DIMT$(79):TL=1 10 PRINT(null) 9,12"[152]EIN GEMEINSCHAFTSSPIEL " 11 (null)"0",8,$D800 12 PRINT(null)8,12" FUER 2-6 PERSONEN " 13 FORW=1TO20:(null)MID$(STR$(W),2,2),8,W:NEXT 14 PRINT(null)12,12"[152]JOYSTICK PORT II " 15 GOSUB502:GOSUB506:T=0:(null)1,0 16 FORE=1TO6:T(E)=0:K3(E)=40:K5(E)=6:K6(E)=2.5:K8(E)=40:K7(E)=2.3:K9(E)=15 17 N$(E)="": 18 S$(E)="NORMAL":NEXT 19 V=53248:S=54272:POKES+24,15 20 (null)4,9,0,0,0,0,0 21 PRINT"[147][144]" 22 (null)0,3,1,1,1,0,0: (null)10,23,0,0,0,1,0:(null)0,0,10:(null)17,24,1,1,1,1,0 23 (null)0,17,1:GOSUB158 :W=0:R=0 24 DATA 15,5,2,14,4,7 25 X=1 26 IFT=66THENT=0: FORW=5TO5+XSTEP2:T=T+1:PRINT(null)15,W""N$(T) :NEXT:T=1 27 GOSUB597 28 T=0:FORR=5TO16STEP2:T=T+1:(null) R, R,0,0,0,1,C(T):(null)R-1,R-1,0,0,0,1,0 29 IFR<14THEN: PRINT(null)0,R+1"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]" 30 NEXT:PRINT(null)0,16"[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][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 31 T=2:PRINT(null)8,16"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 32 L$="@ABCDEFGHIJKLMNOPQRSTUVWXYZ":K=0 33 J=PEEK(56336):IFJ=126ANDT<27THENT=T+1 34 IFJ=125ANDT>1THENT=T-1 35 FORW=1TO 20:NEXT 36 IFJ=119ANDK<5THENK=K+1:FORW=1TOO200:NEXT 37 PRINT(null)15+K,3+(X*2)"[144]";MID$(L$,T,1) 38 N(K)=T:IFJ=111THENGOSUB158: GOTO40 39 GOTO33 40 IFT=1THENGOTO44 41 FORW=0TOK:N$(X)=N$(X)+CHR$(N(W)+63):NEXT 42 K=0:T=2: X=X+1:IFX=7THENGOTO45 43 GOTO33 44 IFX=<2THEN:PRINT(null)8,16"MINDESTENS ZWEI SPIELER[144]":FORW=1TO 800:NEXT:GOTO31 45 PRINT (null) 4,16"O.K. LEUTE, LASST UNS ANFANGEN !":FORT=1TO1100:NEXT 46 GOTO531 47 : 48 FORW=1TO6:P(W)=0:Q(W)=0: NEXT :Y=0 49 : 50 PRINT"[147]" 51 : 52 (null)0,24,1,1,2,1,3 53 (null)0,0,0,0,0,1,0 54 (null)0,1,2:POKEV+21,1 55 IFY>0THENGOTO64 56 DATA 001,254,000,007,255,128,013,255,192,009,255,192,015,255,192,007,255 57 DATA 128,001,254,000,000,120,000,000,132,000,000,188,000,001,190,000,001 58 DATA 062,000,001,126,000,003,127,000,031,255,224,051,255,048,103,255,152 59 DATA 115,255,056,120,000,120,063,255,240,015,255,192,254 60 : 61 POKEV+16,1: POKEV+0,X(1):POKEV+1,Y(1):F=1:G=1:FORW=1TO6:F(W)=1 :NEXT 62 Y=0: 63 FORY=1TOX-1 64 F=F(Y):IFF>1THENPOKEV+16,0 65 IFU(Y)=1THENU(Y)=0:GOTO118 66 PRINT(null)20,0" ":PRINT(null) 9,0" ":IFF=1THENPOKEV+16,1 67 PRINT(null) 9,0""+N$(Y)+":":PRINT(null)20,0"";P(Y):PRINT(null)25,0"DOLLAR" 68 POKEV+0,X(F):POKEV+1,Y(F) 69 R=R+1:IFR =4 THEN:(null)17,14,6:M=4:M1=129:GOSUB159 70 :IFR=1THENPOKEV+39,C(Y) 71 WU = INT(6*RND(1))+1 72 J=PEEK(56336):IFJ=109THENGOTO585 73 IFJ=111THENGOTO255 74 IFR>6THENR=0 75 IFR=2THEN:(null)17,14,7:M=5:M1=129:GOSUB159 76 IFR=3THENPOKEV+39,K(Y) 77 GOTO69 78 FORT=1TO6:IFWU=TTHEN:(null)21,13,11+T 79 NEXT 80 :IFF =1THENJ1=123:J2=123 81 IFF =2ORF =3THENJ1=123:J2=119 82 IFF =4THENJ1=126:J2=119 83 IFF =5ORF =6THENJ1=126:J2=125 84 IFF =7THENJ1=119:J2=125 85 IFF =8ORF =9THENJ1=119:J2=123 86 IFF =10THENJ1=125:J2=123 87 IFF =11ORF=12THENJ1=125:J2=126 88 K1=0:J=PEEK(56336):I=I+1:IFI=9THENI=0 89 IFJ=J1THENK1=0:GOTO94 90 IFJ=J2THENK1=1:GOTO94 91 IFI=3THENPOKEV+39,C(Y) 92 IFI=6THENPOKEV+39,K(Y) 93 GOTO88 94 POKEV+39,C(Y):FORR=1TOWU:IFK1=0THENF=F+1 95 IFK1=1THENF=F-1 96 IFF<1THENF=12: 97 IFF=13THENF=1: 98 POKEV+16,0 99 IFF=1THENPOKEV+16,1 100 POKEV+0,X(F):POKEV+1,Y(F) 101 IFF=1ANDR0THENC=Q(Y):K=1:PRINT(null)0,0"LOHN";C"[157]0$" :GOSUB139 102 POKEV+21,1 103 M=22:M1=33: GOSUB159:FORT=1TO20:NEXT 104 NEXT:GOTO259 105 IFF=11THENGOSUB133:REM ZUFALL 106 IFF=7THENGOSUB403:REM BERUF 107 IFF=3THENGOSUB422:REM FRAGE 108 IFF=1ANDQ(Y)>0THENI=0:(null)21,13,19:GOSUB266:(null)0,1,2:POKEV+21,1 109 IFF=12THEN:(null)21,13,19:GOSUB130 110 IFF=2THENC=2:I=0:K=1:(null)21,13,19:GOSUB139 111 IFF=4THENGOSUB170:REM RISIKO 112 IFF=8THENGOSUB218:REM FRAGE 113 IFF=10THENGOSUB271:REM LEITER 114 IFF=6THENGOSUB303:REM TAKE 115 IFF=5THEN GOSUB322:REMMR X 116 IFF=9THENGOSUB357:REM GELDW. 117 F(Y)=F:IFWU=6ANDF<>12THENGOTO124 118 NEXT:GOTO62 119 DATA 15,203,140,73,93,110,126,160,184,219,234,251 :REM X 120 DATA 181,181,181,181,138,101,69,69,69,69,99,139 :REM Y 121 REM FARBEN 122 DATA 11,1,10,6,0,13 123 DATA BANKIER,SHERIFF,KOPFJAEGER,TOTENGRAEBER 124 : REM 6 125 M=100 126 FORW=1TO 3:(null)21,13,17:GOSUB251:FORT=1TO 70:NEXT:(null) 21,13,19: 127 FORT=1TO30:NEXT:NEXT 128 GOTO70 129 GOTO139 130 :REM AUSSETZEN 131 U(Y)=1 132 RETURN 133 FORT=1TO500:NEXT 134 FORR=1TO10 : Z=INT(12*RND(1))+1 135 POKEV+16,0:IFZ=1THENPOKEV+16,1 136 POKEV+0,X(Z):POKEV+1,Y(Z):GOSUB159 137 FORT=1TOK9(Y):IFPEEK(56336)=111THENF=Z:FORT=1TO500:NEXT:RETURN 138 NEXT:NEXT:F=Z:FORT=1TO500:NEXT:F=Z: RETURN 139 : 140 N=0: IFC=0THEN:I=0: GOTO156 141 FORN=1TOC:IFI=2THENP(Y)=P(Y)-10:GOTO144 142 IFL=44THENP(Q)=P(Q)-10:IFP(Q)=-10THENP(Q)=0:GOTO153 143 P(Y)=P(Y)+10 144 IFP(Y)=90THEN:PRINT(null)23, 0" " 145 IFI=2ANDP(Y)<0THENP(Y)=0:K=0:I=0:GOTO153 146 PRINT(null)20,0"";P(Y) 147 IFL=44THEN:PRINT(null)29,9"";P(Q);"$ ":IFP(Q)=90THEN:PRINT(null)32,9" " 148 POKES+5,0*1 :POKES +6,15*16+0:POKES +1, 2:POKES , 2:POKES +4, 33 149 FORM1=1TO 40:NEXT 150 POKES +4,0:POKES +5,0:POKES +6,0:IFP(Y)>GE+40THENGOTO153 151 FORM1=1TO70:NEXT:IFL=55THENI=0:RETURN 152 NEXT 153 IFP(Y)=GE THENGOTO461 154 IFP(Q)=GE THENGOTO461 155 IFL=44THENGOTO164 156 I=0:C=0:L=0:IFK=0THENGOSUB215 157 I=0:PRINT(null)0,0" " :RETURN 158 M=100:M1=33 159 REM MUSIK 160 POKES+5,0*1 :POKES+6,15*16+0:POKES+1, M :POKES, M:POKES+4, M1 161 FORWA=1TO25:NEXT 162 POKES+4,0:POKES+5,0:POKES+6,0 163 RETURN 164 IFPEEK(56336)=111THENGOTO156 165 GOTO164 166 REM MUSIK 167 POKES+5,0*1 :POKES+6,15*16+0:POKES+1, B :POKES,B :POKES+4, 33 168 POKES+4,0:POKES+5,0:POKES+6,0 169 RETURN 170 REM RISIKOKARTE 171 C=INT(9*RND(1))+1:D$=STR$(C)+"0" 172 GOSUB416 173 PRINT(null)14, 4 "RISIKOKARTE" 174 PRINT"[159][169]":PRINT(null)39,3"[223]" 175 PRINT(null)0,9"[209]":PRINT(null)39,9"[255]" :T=0 176 L=INT(10*RND(1))+1:T=T+1:IFT=15THENFORL=1TO5:G(L)=0:NEXT:T=0:GOTO176 177 IFG(L)=1THENGOTO176 178 G(L)=1:ONLGOTO179,195,197,199,201,204,206,209,211,213 179 A$="DU HAST JEMANDEN ERSCHOSSEN,"+N$(Y) 180 B$="EINMAL AUSSETZEN ODER"+D$+"$ STRAFE!":O=2:O1=3 181 PRINT(null)1, 6"[144]"+A$ 182 PRINT(null)1, 8""+B$ 183 J=PEEK(56336) 184 IFJ=111ANDO=0THENI=3:GOTO189 185 IFJ=111ANDO=1THENI=0:GOTO189 186 IFJ=123ANDO>1THENI=O:GOTO190 187 IFJ=119ANDO>1THENI=O1:GOTO190 188 GOTO183 189 IFI=0THENK=0:GOTO139:REM + 190 IFI=2THENU(Y)=1:GOTO215:REMAUSSETZEN 191 IFI=3THENI=2:K=0:GOTO139:REM - 192 IFI=4THENK=0:GOTO139:REM + 193 IFI=4THENK=0:GOTO215:REM NICHTS 194 IFI=5THENA=Y:GOTO215:REM 195 A$="DU HAST DIE BANK UEBERFALLEN,"+N$(Y) 196 B$=" UND KASSIERST DABEI "+D$+"$ !":O=1:GOTO181 197 A$="FUER GEWISSE BESUCHE HATTEST DU" 198 B$=" "+D$+"$ AUSGABEN,"+N$(Y):O=0:GOTO181 199 A$=N$(Y)+",DU BLOEDMANN,HAST IM " 200 B$="GLUECKSPIEL "+D$+" $ VERLOREN!":O=0:GOTO181 201 R=INT((X-1)*RND(1))+1:IFR=YTHENGOTO201 202 A$="WEIL DU DEINEN MITSPIELER "+N$(R) 203 B$="BETROGEN HAST , REGELBRUCH "+D$+"$":O=0:GOTO181 204 O=INT(4*RND(1))+1:A$="WENN DU "+C$(O)+" BIST,"+N$(Y)+" KASSIERE" 205 B$=D$+"$ ANSONSTEN PECH GEHABT":O=4:O1=5:GOTO181 206 R=INT((X-1)*RND(1))+1:IFR=YTHEN GOTO206 207 A$="SAGE MIR DEN BERUF VON "+N$(R)+" 208 B$[178]"RICHTIG 80 $ ! FALSCH NICHTS !":C[178]8:O[178]4:O1[178]5:[137]181 209 A$[178]"DU HAST DEN JOYSTICK VERGEWALTIGT" 210 B$[178]"EINMAL AUSSETZEN ODER"[170]D$[170]"$ STRAFE!":O[178]2:O1[178]3:[137]181 211 A$[178]"DEIN TAKTISCHES HANDELN BEI DIESEM" 212 B$[178]"SPIEL WIRD MIT "[170]D$[170]"$ BELOHNT":O[178]1:[137]181 213 A$[178]"DU HAST DIE GLUECKSKARTE ERWISCHT," 214 B$[178]"DESWEGEN BEKOMMST DU 100 $ !":C[178]10:O[178]1:[137]181 215 : 216 [129]L[178]3[164]9:[153][210]0,L" ON":[130] 217 [211]0,1,2:[208]3,9,1,1,1,1,3 :[151]V[170]21,1:[142] 218 [143] MATHEFRAGE 219 [151]V[170]34,7:[151]V[170]35,0 220 [141]416:O[178]K8(Y) 221 :C[178]1 :[153][210] 9,3"RECHENAUFGABE:" 222 [153][210]0,6"WIEVEL WILLST DU SETZEN,"[170]N$(Y)" ?" 223 [153][210]32,7"LIST(null)(null)(null) (null)(null)(null)":[153][210]32,8"SPC(THENNOT SPC(THENNOT":[153][210]34,9"STOP20 $":[137]490 224 [143] GOTO2405 225 L[178][181](3[172][187](1))[170]1:L1[178][181](15[172][187](1))[170]2:L2[178][181](20[172][187](1))[170]2 226 T[178]0: L3[178][181](20[172][187](1))[170]1:[139]L[178]1[167]E[178]L1[170]L2[170]L3:A$[178]"+":B$[178]A$ 227 [139]L[178]2[167]E[178]L1[170]L2[171]L3:A$[178]"+":B$[178]"-" 228 [139]L[178]3[167]E[178]L1[172]L2[170]L3:A$[178]"*":B$[178]"+" 229 [153][210]31,3"ZEIT" 230 [153][210]1,6" " 231 [153][210]0,6"WIEVIEL IST";L1;A$;L2;B$;L3;"=" 232 [139]O[179]10[167]:[153][210]36,3"0":T[178]2 233 O1$[178][202]([196](O),2,1) 234 O$[178][202]([196](O),3,1):[153][210]35,3"":[153][210]36[170]T,3""O1$:[153][210]37,3":"O$ 235 O[178]O[171]1: [139]O[179]0[167][137]239 237 [151]S[170]5,0[172]1 :[151]S[170]6,15[172]16[170]0:[151]S[170]4,17:[151]S[170]1,O:[151]S,O 238 [137]232 239 [141]251: 240 [153][210]25,6"";E 241 [153][210] 9,8"RICHTIG ?":K[178]2 242 [211]19,14,3:[211]17,14,6:[129]T[178]1[164]600:[130] 243 J[178][194](56336) 244 [139]J[178]126[175]K[178]1[167]:M[178]6:[141]160: [211]19,14,3:K[178]2:[211]17,14,6 245 [139]J[178]125[175]K[178]2[167]:M[178]10:[141]160:[211]22,13,4:K[178]1:[211]17,14,6 246 [139]J[178]111[175]K[178]1[167] I[178]2:K[178]0:[137]139 247 [139]J[178]111[175]K[178]2[167]:I[178]0:[137]249 248 [137]243 249 K[178]0:[139]C[178]8[167][141]510 250 [137]139 251 [151]S[170]5,0[172]1 :[151]S[170]6,15[172]16[170]0:[151]S[170]4,33 252 [129]T[178]50 [164]00[169][171]2 :[151]S[170]1,T :[151]S, T: [130] 253 [151]S[170]4,0:[151]S[170]5,0:[151]S[170]6,0 254 :[142] 255 [151]V[170]39,C(Y):[211]17,14,7:[151]S[170]5,0:[151]S[170]6,15[172]16[170]0:[151]S[170]4,129 256 [211]17,15,8:[129]T[178]20 [164]00[169][171]2:[151]S[170]1,T :[151]S, T: [130] 257 [151]S[170]4,0:[151]S[170]5,0:[151]S[170]6,0 258 [137]78 259 [139]F[178]1[167][151]V[170]16,1 260 T[178]X(F):W[178]Y(F):[129]L[178]1[164]4:[151]V[170]0,T :[151]V[170]1,W:T[178]T[170]1:W[178]W[170]1:[141]265:[130] 261 [129]L[178]1[164]4:[151]V[170]0,T :[151]V[170]1,W:T[178]T[171]1:W[178]W[170]1:[141]265:[130] 262 [129]L[178]1[164]4:[151]V[170]0,T :[151]V[170]1,W:T[178]T[171]1:W[178]W[171]1:[141]265:[130] 263 [129]L[178]1[164]4:[151]V[170]0,T :[151]V[170]1,W:T[178]T[170]1:W[178]W[171]1:[141]265:[130] 264 [129]T[178]1[164]100:[130]:[137]105 265 [129]H[178]1[164] 10:[130]:[142] 266 C[178]Q(Y)[172]2:K[178]1:[151]V[170]21,0:[139]Q(Y)[178]4[167]:[211]23,15,9 267 [139]Q(Y)[178]3[167]:[211]27,15,20 268 [139]Q(Y)[178]2[167]:[211]27,14,18 269 [139]Q(Y)[178]1[167]:[211]28,14,11 270 K[178]1: [141]139:[129]T[178]1[164] 800:[130]: [142] 271 :[143] LEITER 272 [151]V[170]21,0:[208]3,9,0,1,0,1,14:[211]21,13,19 273 [153][210] 8,3" 160 D O L L A R 160":[151]V[170]34,7:[151]V[170]35,0 274 [153][210]10,4" 80 80 275 PRINT(null)11,5" 40 [155][214][215][215][216] 40 276 [153][210]12,6" 20 LISTSPC(THENTHENNOT 20" 277 [153][210]13,7" 10 DOLLAR 10" 278 [153][210] 8,9"STOP HOW HIRGH CAN YOU GET":N[178]7:B[178]30 :O[178]K7(Y) 279 : 280 [129]G[178]0[164]10:[141]166 281 [129]R[178]0[164]O 282 [208]N,N,0,1,0,1,14:[208]9,9,0,1,0,1,1 283 [139]I[178]1[167]I[178][181](200[172][187](1))[170]1:[129]T[178]1[164]I:[130]:I[178]0 284 J[178][194](56336):[139]J[178]111[167][137]300 285 [130] :[141]166 286 [129]R[178]0[164]O 287 [208]N,N,0,1,0,1,10[171]N:[208]9,9,0,1,0,1,14 288 J[178][194](56336):[139]J[178]111[167]N[178]N[171]1:O[178]O[171].3:B[178]B[170]10: [129]T[178]1[164]200:[130]:[137]290 289 [130]:[130]:[137]293 290 [139]N[178]2[167][137]297 291 [208]3,9,0,1,0,1,14:I[178]1 292 [137]279 293 [139]N[178]7[167][137]215 294 [208]N ,N ,0,1,0,1,14:[208]N[170]1,N[170]1,0,1,0,1, 9[171]N : [139]N[178]6[167]C[178]1 295 [139]N[178]5[167]C[178]2 296 [139]N[178]4[167]C[178]4 297 [139]N[178]3[167]C[178]8 298 [139]N[178]2[167]C[178]16:[141]510 299 K[178]0:[137]139 300 : 301 [141]251 302 C[178]0:[137]215 303 [143] TAKE GIVE 304 [141]416:C[178]8:L[178]0:[153][210]21,6"STOP0 $":[151]V[170]34,7:[151]V[170]35,0 :A[178]K6(Y) 305 [153][210]13,4"LIST(null)(null)(null) (null)(null)(null) (null)(null)(null) 306 PRINT(null)13,5"[155][166][167][168] [166][167][168] [166][167][168] 307 [153][210]11,6"LIST(null)(null)(null) STOP0 $LIST (null)(null)(null) 308 PRINT(null)11,7"[155][166][167][168] [166][167][168] 309 [153][210]13,8"LIST(null)(null)(null) (null)(null)(null) (null)(null)(null) 310 PRINT(null)13,9"[155][166][167][168] [166][167][168] [166][167][168] 311 W[178][181](2[172][187](1))[170]1:[139]W[178]1[167][137]315 312 [153][210]15,6"STOPTAKE":[153][210]19,6"STOP";C :B[178]120:[141]166 313 [129]Q[178]1[164]A:[139][194](56336)[178]111[167]I[178]1: :K[178]0:[137]320 314 [130] 315 [153][210]15,6"STOPGIVE":[153][210]19,6"";C :B[178]100:[141]166 316 [129]Q[178]1[164]A:[139][194](56336)[178]111[167]:K[178]0:[141]251:[129]T[178]1[164]700:[130]:I[178]2:[137]139 317 [130]:L[178]L[170]1 :A[178]A[170].5: [139]C[178]0[167][141]251: [137]215 318 [139]L[178]2[167]C[178]C[171]1:L[178]0 319 [137]312 320 [139]C[178][177]6 [167][141]510 321 [129]T[178]1[164]500:[130]:[137]139 322 [143] MRX 323 [151]V[170]34,7:[151]V[170]35,0 324 [141]416:[151]V[170]21,0:T[178]0 325 W[178][181](33[172][187](1))[170]1:C[178]8:O[178]0:I[178]1:E[178]1:[139]T[177]20[167][141]506:T[178]0 326 [139]I$(W)[178]""[167]T[178]T[170]1:[137]325 327 [153][210]32,4"LIST(null)(null)(null) (null)(null)(null)":[129]T[178]1[164]3:[153][210]32,4[170]T"(null)(null)(null) (null)(null)(null)":[130] 328 [153][210]32,8"SPC(THENNOT SPC(THENNOT" 329 [153][210]13,6"STOP"I$(W) 330 [129]K[178]1[164]5:L[178][181](4[172][187](1))[170]1 331 A$[178][202](I$(W),K,1):[129]T[178]1[164]3 332 H(T)[178][181](26[172][187](1))[170]65:H$(T)[178][199](H(T)):[139]H$(T)[178]A$[167][137]332 333 [130]:[153][210]36,9"STOP0 $" 334 [139]L[178]1[167]:[153][210]18,3A$:[153][210]18,9H$(1):[153][210]1,6H$(2):[153][210]30,6H$(3) 335 [139]L[178]2[167]:[153][210]18,9A$:[153][210]18,3H$(1):[153][210]1,6H$(2):[153][210]30,6H$(3) 336 [139]L[178]3[167]:[153][210] 1,6A$:[153][210]18,3H$(1):[153][210]30,6H$(2):[153][210]18,9H$(3) 337 [139]L[178]4[167]:[153][210]30,6A$:[153][210]18,3H$(1):[153][210]18,9H$(2):[153][210]1,6H$(3) 338 [151]S[170]4,0:[151]S[170]5,0:[151]S[170]6,0:J[178][194](56336):[153][210]34,9"STOP";C 339 [139]J[178]123[175]L[178]3[167][137]346 340 [139]J[178]119[175]L[178]4[167][137]346 341 [139]J[178]125[175]L[178]2[167][137]346 342 [139]J[178]126[175]L[178]1[167][137]346 343 [139]J[178]123[175]L[179][177]3[176]J[178]119[175]L[179][177]4[176]J[178]125[175]L[179][177]2[176]J[178]126[175]L[179][177]1[167]M[178]5:[137]350 344 O[178]O[170]1:[139]O[177]K5(Y)[167]C[178]C[171]1:O[178]0:E[178]E[170]1:[137]351 345 [137]338 346 [153][210]12[170]K,6""A$:M[178]30:M1[178]33:[141]159 347 [130]:[139]C[178][177]6[167][141]510 348 : 349 K[178]0:L[178]0:I$(W)[178]"":[137]139 350 I$(W)[178]"":[141]251:[137]215 351 [139]C[178]0[167][141]251:I$(W)[178]"":K[178]0:L[178]0:[137]215 352 [151]S[170]5,0[172]1 :[151]S[170]6,15[172]16[170]0:[151]S[170]1,40 :[151]S,40:[151]S[170]4,129 353 [139]C[177]4[167]:[153][210]36,2[170]E" ":[153][210]36,3[170]E"LIST(null)(null)(null)":[137]338 354 [139]C[178]4[167]:[153][210]36,2[170]E" ":[153][210]36,3[170]E" ":E[178]1:[137]338 355 [139]C[178]0[167]:[153][210]32,2[170]E" ":[153][210]32,3[170]E" ":E[178]1:[137]350 356 [139]C[179]4[167]:[153][210]32,2[170]E" ":[153][210]32,3[170]E"LIST(null)(null)(null)":[137]338 357 [151]V[170]21,0:[208]4,9,0,1,0,1, 1:[153][210]0,4"OPENSTEP":[153][210]39,4"(null)":[141]419 358 [129]W[178]1[164]X[171]1:[153][210]15,3[170]W"";N$(W);P(W);"$":[208]3[170]W,3[170]W,0,0,0,1,C(W) 359 [139]W[178]1[176]W[178]3[176]W[178]5[167][153]"STOP":[137]361 360 [153]"" 361 [130] 362 [153][210]2,3[170]Y"STOPWELCHES OPFER WAEHLST DU ,"[170]N$(Y)"?" 363 :W[178]1:[137]367 364 [139][194](56336)[178]111[167]M[178]20:M1[178]17:[141]159:[141]215:Q[178]W[171]1:[137]373 365 [139][194](56336)[178]125[167][129]T[178]1[164]99:[130]:[137]367 366 [137]364 367 [153][210]14,2[170]W" ":[153][210]27,2[170]W" " 368 [139]W[178]Y[167]W[178]W[170]1: 369 [139]W[178]X [167]W[178]1:[137]367 370 [153][210]14,3[170]W">":[153][210]27,3[170]W"<" 371 W[178]W[170]1: 372 [137]364 373 [151]V[170]21,0:[139]P(Q)[178]0[167]W[178]0:[137]215 374 :[208]3,9,0,1,0,1,14 375 [151]V[170]34,7:[151]V[170]35,0 376 [129]E[178]10[164]1[169][171]1 377 L[178][181](5[172][187](1)) 378 B[178] [181](5 [172][187](1)) 379 Z[178] [181](5 [172][187](1)) 380 C[178] L[170]B[170]Z 381 [139]C[177]100[167][137]377 382 [153][210]19,3""E"LIST" 383 [139]L[178]0[167][137]386 384 [153][210] 3,8"SPC(THENNOT":[139]L[178]1[167]:[153][210] 3,7"(null)(null)(null)":[137] 386 385 [139]L[177]1[167]I[178]7:[129]W[178]2[164]L:[153][210] 3,I"(null)(null)(null)":I[178]I[171]1:[130]:[153][210] 3,I"(null)(null)(null)" 386 [139]B[178]0[167][137]389 387 [153][210]18,8"SPC(THENNOT":[139]B[178]1[167]:[153][210]18,7"(null)(null)(null)":[137] 389 388 [139]B[177]1[167]I[178]7:[129]W[178]2[164]B:[153][210]18,I"(null)(null)(null)":I[178]I[171]1:[130]:[153][210]18,I"(null)(null)(null)" 389 [139]Z[178]0[167][137]392 390 [153][210]34,8"SPC(THENNOT":[139]Z[178]1[167]:[153][210]34,7"(null)(null)(null)":[137] 392 391 [139]Z[177]1[167]I[178]7:[129]W[178]2[164]Z:[153][210]34,I"(null)(null)(null)":I[178]I[171]1:[130]:[153][210]34,I"(null)(null)(null)" 392 M[178]40:M1[178]129: [141]159: [129]W[178]1[164]24:[139][194](56336)[178]111[167][137]398 393 [130] 394 L[178]2:[129]W[178]3[164]8:L[178]L[170]1:[153][210]2,L" ":[130] 395 [153][210]10,8"LIST " 396 [130] 397 [139]E[178]0[167][141]251:K[178]0:L[178]0:C[178]0:[137]139 398 M[178]20:M1[178]33:N[178]0: [141]159 399 [143] P$(Q)=STR$(P(Q)) 400 [153][210]0,9"DEIN GEWINN ";C;"CMD0 $ VON "[170]N$(Q) 401 [139]C[177]7[167][141]510 402 L[178]44:K[178]0:[137]139 403 [143] 404 [151]V[170]21,0:[211]21,13,19 405 K[178][181](4[172][187](1))[170]1: [139]K[178]1[167]:[211]12,5,9 :Q(Y)[178]4 406 [139]K[178]2[167]:[211]14,5,11 :Q(Y)[178]1 407 [139]K[178]3[167]:[211]14,5,18 :Q(Y)[178]2 408 [139]K[178]4[167]:[211]15,5,20 :Q(Y)[178]3 409 [151]S[170]5,0[172]1 :[151]S[170]6,15[172]16[170]0:[151]S[170]4, 17:[129]T[178]1[164]7 410 [151]S[170]1, M(T):[151]S, M(T) 411 [129]W[178]1[164]70:[130] 412 [130] 413 [151]S[170]4,0:[151]S[170]5,0:[151]S[170]6,0 414 [139][194](56336)[178]111[167]:[211]0,1,2:[151]V[170]21,1:[142] 415 [137]414 416 :[143] BLASE 417 [208] 3, 9,0,1,0,1,1:[151]V[170]21,0 418 [153][210]0,3"OPENSTEP":[153][210]39,3"(null)" 419 [153][210]0,9"(null)":[153][210]39,9"(null)" 420 :[211]22,10,5:[211]21,13,19:[142] 421 : 422 :[143] FRAGE1 423 [151]V[170]34,7:[151]V[170]35,0:[153]"LIST":T[178]0 424 [141]416: 425 R[178][181](79[172][187](1))[170]1 426 [139]T[177]10[167][141]502:T[178]0 427 [139]T$(R)[178]""[167]T[178]T[170]1:[137]425 428 [153][210]3,5"STOPNENNE MIR ...." 429 [153][210]3,7"STOP4 "[170]T$(R):K[178]K3(Y) 430 : 431 [139]K[179]10[167]:T[178]2:[153][210]36,3"0" 432 K1$[178][202]([196](K),2,1) 433 K$[178][202]([196](K),3,1):[153][210]31,3"ZEIT":[153][210]36[170]T,3""K1$:[153][210]37,3":"K$ 434 K[178]K[171]1:[139]K[179]0[167][137]437 435 : [151]S[170]5,0[172]1 :[151]S[170]6,15[172]16[170]0:[151]S[170]4,17 :[151]S[170]1,K:[151]S ,K 436 [137]430 437 [141]251 438 :C[178]1 : 439 : 440 [153][210]32,7"LIST(null)(null)(null) (null)(null)(null)" 441 [153][210]32,8"SPC(THENNOT SPC(THENNOT" 442 [153][210]33,9"STOP";C[172]2"CMD0 $":[139]C[178]0[167]:[153][210]18,7"EN":[153][210]9,7"0 " :[137]445 443 [153][210]3,5"STOPDEIN GEWINN ":T$(R)[178]"" 444 [153][210]3,7" CLOSE":[153][210]4,7"FUER"C"ANTWORT" 445 J[178][194](56336) 446 [139]J[178]111[167][137]457 447 [139]J[178]126[167]:C[178]C[170]1:M[178]40:M1[178]129:[141]159:[137]449 448 [137]445 449 [153][210]18,7"EN" 450 [139]C[177]4[167]:[129]W[178]1[164]C:[153][210]32,3[170]W" ":[130]:C[178]0:[137]442 451 [139]C[178]1[167]:[153][210]18,7" ":[137]440 452 :[153][210]8,7""C: [129]W[178]1[164]C:[139]C[177]0[167]:[153][210]32, 9[171]C"LIST(null)(null)(null) (null)(null)(null)" 453 [153][210]32,8[171]C"LIST(null)(null)(null) (null)(null)(null)":[130] 454 [153][210]33,9"STOP";C[172]2"CMD0 $" 455 [137]445 456 K[178]0:C[178]0:[141]251:[137]139 457 [139]C[178]4[167][141]510 458 K[178]0:C[178]C[172]2:[137]139 459 : 460 [131]17,21,26,21,26,29,34:[143] M1 461 : 462 [208]10,15,1,1,1,1,3 463 [129]L[178]3[164]9:[153][210]0,L" ON":[130] 464 [151]V[170]21,0:[208]0,9,0,1,0,1,1:[151]V[170]34,7:[151]V[170]35,0:[211]22,10,5 465 [153][210]0,0"STOPSTEP":[153][210]39,0"(null)" 466 [153][210]0,9"OPEN(null)":[153][210]39,9"(null)" 467 [153][210] 1, 0"LIST(null)(null)(null)(null)(null)STOP WIR HABEN EINEN GEWINNER: LIST(null)(null)(null)(null)(null)" 468 E$[178][196](GE):F$[178][202](E$,2,3) 469 [153][210] 1, 1"(null)SYS"F$"WAITLIST(null) (null)SYS"F$"WAITLIST(null)" 470 [153][210] 1,2"LISTSPC(THENTHENTHENNOT ";N$(Y) 471 [153][210]15,2"STOPIST DER SIEGER LISTSPC(THENTHENTHENNOTSTOP" 472 [153][210]0,3"DIESER RUNDE !! HERZLICHEN GLUECKWUNSCH!":W[178]0:T[178]0 473 [129]W[178]1[164]X[171]1:[139]W[178]Y[167][137]477 474 T[178]T[170]1:[208]4[170]T,4[170]T,0,1,0,1,C(W):[153][210]15,4[170]T"";N$(W);P(W);"$" 475 [139]W[178]1[176]W[178]3[176]W[178]5[167][153]"STOP":[137]477 476 [153]"" 477 [130]:[211]19,14,3:[211]17,14,6 478 [137]517 479 [208] 5, 9,0,1,0,1,1 480 [129]W[178]1[164]5:[153][210]10,4[170]W" ":[130] 481 [153][210]13,5"STOPNEUES SPIEL" 482 [153][210]2,7"NEUE NAMEN ALTE NAMEN" 483 [129]W[178]1[164]6:U(W)[178]0:[130] 484 [129]W[178]1[164]50:[151]53280,W:[130]:[151]53280,0: 485 J[178][194](56336) :[139]J[178]119[167][137]47 486 [139]J[178]123[167]Y[178]0:[137]16 487 [137]485 488 [129]L[178]1[164]9:[153][210]0,L" ON":[130] 489 [208]0,5,1,1,2,1,3:[211]0,1,2:[208]6,9,0,0,0,1,1 :[211]22,10,5 490 : 491 J[178][194](56336) 492 [139]J[178]111[167]K[178]0:C[178]C[172]2:M[178]20:M1[178]17:[141]159:[137]225 493 [139]J[178]126[167]:C[178]C[170]1:M[178]40:M1[178]129: [141]159:[137]495 494 [137]490 495 [139]C[177]4[167] :[129]W[178]1[164]C:[153][210]32,3[170]W" ":[130]:C[178]1:[137]223 496 [129]W[178]1[164]C:[139]C[177]0[167]:[153][210]32, 9[171]C"LIST(null)(null)(null) (null)(null)(null)" 497 [153][210]32,8[171]C"LIST(null)(null)(null) (null)(null)(null)":[130] 498 [153][210]33,9"STOP";C[172]2"CMD0 $" 499 [137]491 502 W[178]1:[159]2,8,2,"21,S,R" 503 [132]2,T$(W) 504 [139]W[178]79[167][160]2:[142] 505 W[178]W[170]1: [137]503 506 W[178]1:[159]2,8,2,"22,S,R":[143] MR.X 507 [132]2, I$(W) 508 [139]W[178]33[167][160]2:[142] 509 W[178]W[170]1: [137]507 510 : 511 [151]54296,15:[151]54277,9 512 [151] 54291,18:[151] 54292,170 513 [129]W[178]20[164]26:[151] 54276,16:[151]54290,16 514 :[151] 54273,M2(W):[151] 54276,17 515 :[151] 54287,M3(W):[151] 54290,17: 516 [129]T[178]1[164]100:[130]:[130]:[151]54290,0:[142] 517 : 518 [151] 54296,15 519 [151] 54277,9 520 [151] 54291,118:[151] 54292,170 521 [129]W[178]1[164]43:[151] 54276,16:[151] 54290,32:[151]53280,W 522 :[151]54273,M2(W):[151] 54276,33 523 :[151]54287,M3(W):[151] 54290,17: 524 [129]T[178]1[164] 80:[130]:[130] 525 [151]54290,0:[137]479 526 [131]51,0,43,0,34,8,34,0,34,6,38,0,43,0,45,0,51,8,51,0,51,9,43,10,57 527 [131] 11,57,0 528 [131]57,8,0,0,51,0,57,11,0,0,51,0,57,10,64,0,68,9,76,0,86,8,0,0,0,6,68 529 [131] 0,51,0 530 [131]68,8,0,0,0,8,51,7,43,0,51,6,0,0,0,9,38,0,43,0,34,8,0,6,0,4,0,0 531 [208]4,16,0,1,0,1,0:[153][210] 5,16" CLOSECLOSE" 532 [141]590 533 [153][210] 6,8" SPIELERSTAERKEN AENDERN":T[178]12 534 :[153][210]12,12"WEITER SPIELEN":[153][210]10,10" GEWINNSUMME:";GE"$" 535 J[178][194](56336):[139]J[178]111[175]T[179][177]10[167][141]158:[137]570 536 [139]J[178]126[167]:[208]T,T,0,1,0,1,0: T[178]T[171]2 537 [139]J[178]125[167]:[208]T,T,0,1,0,1,0: T[178]T[170]2 538 [139]T[177]12[167]T[178]8 539 [139]T[179] 8[167]T[178]12 540 [208]T,T,0,1,0,1,2 541 [139]J[178]123[175]T[178]10[175]GE[179]900[167]GE[178]GE[170]100:L[178]55:[141]148 542 [139]J[178]119[175]T[178]10[175]GE[177]200[167]GE[178]GE[171]100:L[178]55:[141]148: 543 [139]GE[177]900[167]GE[178]900 544 [139]GE[179]200[167]GE[178]200 545 [153][210]23,10"";GE 546 [137]535 547 [141]590 548 [129]W[178]1[164]X[171]1 549 [141]597 550 [208]3[170]2[172]W,3[170]2[172]W,0,0,0,1,C(W):[153][210]10,3[170]2[172]W"STOP";N$(W) 551 [139]W[179]5[167]: [208]6[170]W[172]2,6[170]W[172]2,0,0,0,1,0 552 [153][210]0,4[170]W[172]2"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN" 553 [153][210]34,3[170]2[172]W"STOP";S$(W):[130] 554 [153][210]0,2[170]2[172]W"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 555 E[178]1:T[178]2 556 J[178][194](56336) 557 [139]J[178]111[167][141]158: [129]T[178]1[164]500:[130]:T[178]0:[137]531 558 [139]J[178]126[167]:[208]3[170]2[172]E,3[170]2[172]E,0,1,0,1,C(E ): :E[178]E[171]1: 559 [139]J[178]125[167]:[208]3[170]2[172]E,3[170]2[172]E,0,1,0,1,C(E ): :E[178]E[170]1: 560 [139]E[177]X[171]1[167]E[178]1 561 [139]E[179]1[167]E[178]X[171]1 562 [208]3[170]2[172]E,3[170]2[172]E ,0,1,0,1,1 563 [139]J[178]123[176]J[178]119[167]T(E)[178]T(E)[170]1 564 [139]T(E)[178]4[167]T(E)[178]1 565 [139]T(E)[178]1[167]S$(E)[178]"LEICHT":[141]598 566 [139]T(E)[178]2[167]S$(E)[178]"NORMAL":[141]599 567 [139]T(E)[178]3[167]S$(E)[178]"SCHWER":[141]600 568 [153][210]34,3[170]2[172]E"STOP";S$(E) 569 [137]556 570 [208]T,T,0,1,0,1,0 571 [139]T[178] 8[167]:[137]547 572 [139]T[178]12[175]Y[178]0[167][141]590:[137]47 573 [139]T[178]12[175]Y[177]0[167][141]590:[137]51 574 [141]591:[208]11,16,0,1,0,1,0 :W[178]3 :[141]578: : [137]576 575 [153][210]35,W[172]2"";T$" " 576 [208]W[172]2,W[172]2,0,1,0,1,2 577 [143] GOTO5810 578 [208]4,16,0,1,0,1,0 579 [129]W[178]4[164]16 :[153][210]1,W" STOP" :[130] 580 :[137]47 581 [139]T[178]5[167]:T[178]66: : [137]578 582 : 583 [141]590:[141]594 584 : 585 [151]V[170]21,0: [208]0,24,1,1,2,1,0:[208]4,16,0,0,0,1,0:[211]0,0,10:[211]0,17,1 586 [137]531 587 : 588 : 589 " 590 : 591 FORW=4TO16:PRINT(null)0,W" " 592 :NEXT 593 RETURN 594 T=0:FORR=1TOX*2-2STEP2:T=T+1:(null) 4+R,4+R,0,0,0,1,C(T) 595 PRINT(null)15,4+R"[144]";N$(T):NEXT 596 RETURN 597 PRINT(null)0,4"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":RETURN 598 K3(E)=45:K5(E)=7:K6(E)=3.5:K8(E)=50:K7(E)=3:K9(E)=23:RETURN 599 K3(E)=40:K5(E)=6:K6(E)=2.5:K8(E)=40:K7(E)=2.3:K9(E)=15:RETURN 600 K3(E)=20:K5(E)=3:K6(E)=1:K8(E)=20:K7(E)=1.7:K9(E)=9:RETURN