ECHSTEN MAL!":#p me End")1:(18,36);SWU4SSSSS1:(23,36);SSj>SS04110:2130HSWSW1:(18,36);Égo|gxG>I5Jʙ9v" GSљ e͘w>0p}  î ELNN! 6 REBASIC RUN Vjj###NADELN 990,31,0,39:22,0::(16,14);"MOMENT BITTE!":29001J40:[[LOT[[oRR1:R4,5,6,7,8,9,10,11,12,13{D4:14D6:14D8:14D10:14D12:14 D14:14 D16:14 D18:14 D20:14 D22WW1:W15,16,17,18,19,20,21,22,23,24"C11:25/C13:25<C15:25IC17:25VC19:25cC21:25pC23:25}C25:25C27:25C29[24.20[(A$"--> "V$"=NADEL / HEU="R$" <--":C$".EINGABE":D$"SPALTE:____";2E$"ZEILE :____":G$"-=ERGEBNIS=-":H$"SPIELER_A_[[":I$"[[SPIELER_B_"<J$"__COMPUTER__":K$"NADEL: HEU: ":L$V$V$V$V$V$V$V$" "FF$"____":M$" "R$R$R$R$R$R$PN$" ":O$"= =":P$"__SPIELER___"Z0,31,0,39:7,1:::N49Kd(1,2);V$;" NADELN IM HEUHAUFEN ";V$;" ";ES$;" 1987 ";V$:2400`n(2,1);(38,X$)|x1950:7,1:[[QUADRAT[[(4,1);"WIEVIEL NADELN SOLL COMPI STREUEN?___"(6,1);"<<*COMPI* streut bis zu _49 NADELN!>>":I(S$)4,35:"";N:N2N49130:NN1:A(N)[(6,1);"**** COMPI streut jetzt NADELN ! ":2030:[BER.ZZ(6,1);(38,X$):7,2:(9,25);"SIE KOENNEN:" (12,25);"1.-ALLEIN,":(14,25);"2.-MIT DEM"(16,29);"COMPUTER":(18,28);"-ODER-" (20,25);"3.-ZU ZWEIT_":(22,26);"AUF SUCHE"M (24,27);"GEHEN!":(27,27);"1_2_ODER_3"| (29,27);"EINGEBEN!":23:(27,25);"*":7 B(509):BB48:B1B3230:Ԟ(29,37);B 2110:(6,1);A$:6,14,25,38:2: (9,26);(12,X$):I(S$)' (11,26);D$:(13,26);E$:B(100):I0100:B(I)1:_ V1:T0:H0:T10:T20:H10:H20:F2:B280,570,1280 16,30,25,38:4::19,27,25,38:2: "(20,26);G$:(22,26);K$:(24,26);O$ ,(7,26);V;C$ 6(11,33);F$:(13,33);F$ @23:(11,37);"#":71 JR(509):RR48:R0R9330:Ԟ(11,34);R:LW10RP T216,0,0,0,25,2:2:I(S$)w ^(11,37);" ":23:(13,37);"#":7 hW(509):WW48:W0W9360:Ԟ(13,34);W:LWLWW r192,0,0,0,25,2 |(13,37);" ":2:B(V)LW I0V1 LWB(I)510  I0N LWA(I)450X TT1:(24,27);T:(26,25);L$:171,0,0,0,31,25:480} :HH1:(24,34);H:(26,25);M$ 108,0,0,0,31,3:3 6:(C,D);R$:2:500 3 (C,D);V$:TN1520 VV1:2:300 2370:300- 23,0:2,6,1,38::(3,4);"[ -> ALLE NADELN GEFUNDEN !!"e 7:(5,1);"NEUES SPIEL? JA=J_ODER_N=NEIN EINGEB.!" B(509):B74B78540 &B741 00,31,0,39:7,1::1920 :16,22,25,38:4::(16,26);P$:(18,26);K$ D(20,26);O$:24,30,25,38:3::(24,26);J$MNC(100):I1100:C(I)I1::C(100)1:Z100:Z221(10(1)) zX(26,26);K$:(28,26);O$:E1:0,31,0,39b2:(7,26);V;C$:(11,33);F$:(13,33);F$lE630,840v(9,26);P$:23:(11,37);"#":7 R(509):RR48:R0R9640:Ԟ(11,34);R*216,0,0,0,25,2:2:I(S$)Q(11,37);" ":23:(13,37);"#":7W(509):WW48:W0W9670::(13,34);W192,0,0,0,25,2LW10RW:(13,37);" ":B(V)LWI0V1LWB(I)7302370:610I0N LWA(I)78024:T1T11:(20,27);T1:(22,25);L$L171,0,0,0,31,25:810w :4:H1H11:(20,34);H1:(22,25);M$108,0,0,0,31,3:3 6:(C,D);R$:830*34(C,D);U$:1020>2:E2:VV1:(4,36);N1T1T2:R1:W1:C0:D0:610-H23:(11,37);"#":7:(9,26);"[[COMPUTER[["DRJ1Z21:ZC(Z):_\Z1C(Z)1:C(Z)C(C(Z))rfC(Z)ZZ1Z1pI1V1zZ1B(I)850:R(Z110):WZ1R10:B(V)Z1(11,34);R:(11,37);" ":216,0,0,0,25,2(13,34);W:192,0,0,0,25,2 I0NZ1A(I)970G3:T2T21:(28,27);T2:(30,25);L$b171,0,0,0,31,25:1000:H2H21:3:(28,34);H2:108,0,0,0,31,3(30,25);M$:36:(C,D);R$:10103:(C,D);T$:10202:E1:VV1:(4,36);N1T1T2:R1:W1:610!T1T2N11120:7,11T1T21070AT1T21060|(4,1);"***** DER COMPUTER HAT GEWONNEN! *****":1080$(4,1);"***** DER SPIELER HAT GEWONNEN ! *****":1080.(4,1);"*** DAS SPIEL ENDET UNENTSCHIEDEN! ***"823:(5,0);(40,X$):(6,21);"[[[":7:B(6,1);"-NEUES SPIEL ? J/N "YLB(509):B74B781100kVB741:ԙ:|`F1270,1130jT1((N3).5)1160tT2((N3).5)1190~E830,1010199,128,199,71,7:199,71,312,71:312,71,312,128312,128,199,128:207,83,304,83,23:7U(4,1);"> DER SPIELER FUEHRT UNEINHOLBAR !<":1220199,64,199,7,7:199,7,312,7:312,7,312,64312,64,199,64:207,19,304,19,23:7(4,1);"> DER COMPUTER FUEHRT UNEINHOLBAR!<"(6,1);"SPIEL FORTSETZEN? J/N ":23:(6,23);"[":7-B$:B$" "1230>B$"N"1080PB$"J"1230c(6,1);A$:F1sE830,101016,22,25,38:4::(16,26);H$:(18,26);K$ (20,26);O$:24,30,25,38:3::(24,26);I$(26,26);K$:(28,26);O$:E1:0,31,0,3902:(7,26);V;C$:(11,33);F$:(13,33);F$ A(E1330,1340Q2P$H$:1350[<P$I$F(9,26);P$:23:(11,37);"#":7PR(509):RR48:R0R91360:Ԟ(11,34);RZ216,0,0,0,25,2:I(S$):2d(11,37);" ":23:(13,37);"#":7$nW(509):WW48:W0W91390:Ԟ(13,34);W8x192,0,0,0,25,2\LW10RW:(13,37);" ":B(V)LWiI0V1|LWB(I)14502370:1310E1470,1560I0NLWA(I)15104:T1T11:(20,27);T1:(22,25);L$171,0,0,0,31,25:15350:4:H1H11:(20,34);H1:(22,25);M$G108,0,0,0,31,3:3_6:(C,D);R$:1550f3|(C,D);"A":16602:E2:VV1:R1:W1:C0:D0:(4,36);N1T1T2:1310I0N"LWA(I)1600,3:T2T21:(28,27);T2:(30,25);L$6171,0,0,0,31,25:1630E@:3:H2H21:(28,34);H2:(30,25);M$\J108,0,0,0,31,3:3}T6:(C,D);R$:1650:GOSB2200^3h(C,D);"B":1660r2:E1:VV1:R1:W1:C0:D0:(4,36);N1T1T2:1310|T1T2N11760:7,1T1T21710T1T21700H(4,1);"*** [[SPIELER_B_ HAT GEWONNEN ! ***":1720(4,1);"*** SPIELER_A_[[ HAT GEWONNEN ! ***":1720(4,1);"*[* DAS SPIEL ENDET UNENTSCHIEDEN ! *[*"23:(5,0);(40,X$):(6,21);"[[[":7(6,1);"-NEUES SPIEL ? J/N "#B(509):B74B7817405B741:ԙ:FF1910,1770_T1((N3).5)1800xT2((N3).5)1830E1550,1650199,128,199,71,7:199,71,312,71:312,71,312,128312,128,199,128:207,83,304,83,23:7 (4,1);"**[[SPIELER_A_ FUEHRT UNEINHOLBAR !":1860O&199,64,199,7,7:199,7,312,7:312,7,312,64w0312,64,199,64:207,19,304,19,23:7:(4,1);"**SPIELER_B_[[ FUEHRT UNEINHOLBAR !"D(6,1);"SPIEL FORTSETZEN? J/N ":23:(6,23);"[":7NB$:B$" "1870 XB$"N"1720bB$"J"1870.l(6,1);A$:F1?vE1550,1650EQ[[UP[[`[[BILD1[[v8,30,1,23:0,6:J0:I3222:(9,I);J:JJ1:J0:I11302:(I,1);J:JJ1:I1118716:I,187,I,11,0:I1871116:11,I,187,I:&I12261:J1861721:I,J::<0,31,0,39:7,1:N[[BER.POS.[[k7,2:I0N:(6,25);I1~ZZ(100(1))J0I ZZA(J)2040 A(I)ZZ:*0,6:(4,1);"**** ES SIND";N1"NADELN ZU SUCHEN! ****":4[[FENSTER[[. >7,1:6,6,0,39::7,31,24,39::0,31,0,39:; 8 [WDHLG[s B 23:(7,26);"WIEDERHOLUNG":(8,26);"[[[[[[[[[[[[" L :::7:(7,26);" " V (8,26);" ":2: ` :862,25: !Iq-1108,188,1,255,2,195,3,153,4,159,5,159,6,153,7,195,8,255E!Jq9,255,10,195,11,159,12,195,13,249,14,153,15,195,16,255y!Kq17,15,18,9,19,9,20,15,21,16,22,32,23,64,24,128!Lq25,255,26,143,27,184,28,155,29,184,30,143,31,248,32,255!Mq33,255,34,255,35,69,36,221,37,92,38,93,39,69,40,255+"Nq41,255,42,255,43,174,44,174,45,42,46,170,47,160,48,255h"Oq49,255,50,255,51,132,52,181,53,132,54,181,55,181,56,255"Pq57,255,58,255,59,33,60,189,61,51,62,111,63,33,64,255"Qq65,255,66,0,67,255,68,0,69,255,70,0,71,255,72,0#Rq73,0,74,231,75,60,76,153,77,153,78,60,79,231,80,0D#SqI080:X,Y:XX15359:X,Y::T$(160):U$(161)y#TqV$(162):ES$(163)(164)(165)(166)(167)#UqR$(168):X$(169):TIGEN ZUG*# GOSUB9200# 5360# **PRUEFUNG KANTENPOSITION**# S103440$ (I2)(I9)0331