IM:! w11111111111111111111111111111111111111X25000o:SCHIFFE-VERSENKEN:(BOETTNER 10.3.85):862,25:16680::0,31,0,39:7,7::2:7,1;(15,15);"SEKUNDE!":26150:I1208:XZ:15623I,XZ ::14249,188!:0,9,0,39:7,1:8:10,31,0,39:7,5:t:1,5;(11,0);"fffffffffffffffffffffffffffffffffffffff":1,5;(13,0);"ghghghghghghghghghghghghghghghghghghghg":1,5;(16,0);"fghfghfghf fghfghfghfghf"(:1,5;(20,0);"ghfghghfghgh ghfghghfghghf"H:0,5;(25,14);"0123456789"S:U09j;0,5;(24U,12);Uq;U;15,24,14,23:7,1:$;16200.;0,5;(22,11);"a"8;0,5;(23,11);"b"B;0,5;(24,11);"Y"L;0,5;(27,14);"Xcd"V;7,2;(23,28);"d e"< A(5)$ 10 >5,5,4,34:7,1: >154504 &>16520:7,2;(5,9);"SCHIFF IN DER NAEHE!"I 0>216,0,0,0,31,10^ :>171,0,0,0,31,10s D>136,0,0,0,31,10{ N>10 X>5,5,4,34:7,1: b>15450 l>16540:7,3;(5,12);"cd TREFFER ec" v>3,1;(B,C);"[" >40,1,0,0,31,10 >32,1,0,0,31,5 >23,1,0,0,31,10 >101 >5,5,4,34:7,1:A >P516080x >7,1;(29,4);"ALLE VERSENKT MIT ";N;" SCHUESSEN!" > 150:25000 >29,29,4,34:7,5: >7,7;(29,6);"SCHUSSZAHL BIS JETZT ";N >IFP=1THEN >IFP=2THEN >IFP=3THEN ?IFP=4THEN ?15450# ?F115910: ?29,29,4,34:7,5:m *?16520:7,7;(29,6);F;"SCHIFFE IN DER NAEHE!"x 4?15960~ >? H?I110 R?J110 \?7,1;(14I,13J);(255) f?J,I p? t@7,5;(10,29);"kmmmmmmm" v@7,1:(9,31);"s[[[s":(8,33);"tt"x@&~@1,5:(10,10);" "8@(11,10);"f">@c@1,5:(10,10);" ":(11,10);"f"o@I110@0,5;(11,I);"j":1,5;(11,I1);"f"@@I120@602,0,802I,0,31,2:@0,5:(10,10);"j":(11,10);"b"@@102,1,104,1,31,0@I116/@7,5;(11,11I);"=cc"J@1,5;(11,10I);"f":p@I120:273I,1,303I,1,31,2:@7,5;(11,28);"vw":0,5;(10,29);"vw"@10@1,5;(11,27);"fff":8,9,29,36:7,1:@10,10,29,36:7,5:@7,5;(10,31);"mmmmm"@7,1;(9,32);"suu":5G@9,9,32,34:7,1::10,10,31,35:7,5:`@7,5;(10,32);"mmm"z@7,1;(9,33);"tt":5@9,9,33,34:7,1:@10,10,32,34:7,5:@5,1;(9,33);"vw":5@9,9,33,34:7,1:@5@0,5;(11,8);"lmmmm"@0,5;(10,9);"niii"5@0,1:(9,10);"b":(8,10);"b"F@(7,10);"j"M@5s@0,5:(11,0);"lmmmmmmmmmmmmmmmx"@(10,8);"n[U7[":0,1@(9,9);"niii":(8,10);"b"@(7,10);"b":(6,10);"j"@5@7,1:(8,12);"o":2 @(8,12);"r":(7,12);"o":10+@(8,11);"q":(7,11);"p"6@I12\@27,1,54,1,31,20:21,1,43,1,31,20s@18,1,36,1,31,30:@7,8,11,11:7,1::5@7,8,12,12:7,1:@7,1;(8,12);"o":5@8,8,12,12:7,1::5@1,5;(11,0);"fffffffffffffffffff"$@6,9,9,12:7,1::10,10,8,12:7,5:N@0,5:(11,8);"lmmmm":(10,9);"niii"t@0,1:(9,10);"b":(8,10);"j":5@7,9,10,10:7,1:@10,11,8,12:7,5:@1,5;(11,8);"fffff"@0,5;(11,10);"b":0,5;(10,10);"j"@5@10,11,10,10:7,5:A7,5;(11,9);"/A1,5;(11,9);"ff"AAP516650:ԍM AI130 A10,5;(11,31I);" yz":10,5;(11,31I);" y " A1,5;(11,34I);"f":7,5;(11,37I);"n "A1,5;(11,39I);"f"AA1,5;(11,0);"ffffffffffffffffff"A(A:0,31,0,39:7,7:**A5,24,5,34:7,1:1,A"8-A"?.A"a0A" ccaSCHIFFE VERSENKENbcc"h2A"o3A"v4A"6A" ES SIND 5 SCHIFFE ZU VER-"8A":A" SENKEN. HIERBEI SOLLEN"A" MOEGLICHST WENIG SCHUESSE"@A" BA" VERSCHWENDET WERDEN. "DA"FA"!GA"LHA" >";(141);"<";dJAA(509):A016714|LAA1315020:Ԉ16714PAhB STAEDTE-RATEN(BOETTNER,17.2.85)mB:0,31,0,39:7,1:nB18500oB7,2;(14,6);"AUGENBLICK BITTE - ICH"pB7,2;(16,12);"DENK MIR WAS AUS!"0qB862,25:26020OrBI1208:XZ:15623I,XZ:^|B14249,188tB0,31,0,39:7,1:B: 9,29,16,37:7,4:BK4:M1BA((57(1)))1B17140B I1AB X$B PRINTAT(15,1);X$B PRINT AT(17,1);LEN(X$)*B C8 (X$)7:7,1;(4,C);(255)PB7,1;(3,C);"x":7,1;(5,C);"x"VBB ROM,LIMA,SUVA,ADEN,QUITO,SUERE,PARIS,RABAT,DAKAR,LAGOSB SOFIA,ATHEN,KAIRO,KABUL,DELHI, DACCA,HANOI,TOKIO,OTTAWAC MEXICO,BOGOTA,LONDON,MADRID, ALGIER,BERLIN,ANKARA,MOSKAUQC BAGDAD,PEKING,MANILA,RANGUN,MAPUTO,LUSAKA,LUANDA,HAVANNAC CARACAS,TEHERAN,BANGKOK,JAKARTA,NAIROBI,CONAKRI,COLOMBO&C BRASILIA,ASUNCION,SANTIAGO,LISSABON,WARSCHAU,BUKAREST 0C TRIPOLIS,SINGAPUR,CANBERRA,PRETORIA,REYKJAVIK,STOCKHOLM0:C WASHINGTON,MONDEVIDEO,MOGADISCHU6DCUXC 0,7;(9,3);"A-Z y z"klC 9,9,8,11:7,2:uvCCC1}CN0C 9,9,8,11: 7,2::C17,4;(9,9);"["CW(509):W017295CB$(W)C7,2;(9,9);B$CCT1C C7,48CB$(X$,T,1)(4,T7);B$ :17440: NN1AC TXC NC7 17370lC NC7 17420C B$(X$,1,1) B$(X$,2,1) 17380:17290C B$(X$,3,1) B$(X$,4,1) 17390:17290C B$(X$,5,1) B$(X$,6,1) 17400:172904C B$(X$,7,1) B$(X$,8,1) 17410:17290gD B$(X$,9,1) B$(X$,10,1) 17490:17290 D7,2;(4,24);"SEHR GUT"::19000:17690D D 7,1;(4,24);"RICHTIG"*DL115:50L3,0,60L3,0,31,2:4DL115:50L3,0,60L3,0,31,2:6D4,4,24,31:7,1:A8DK4K910,4;(23M,143M);"lm"i:DK4K910,4;(24M,143M);"no"oHDyRDKK1\D 7,1;(10K,9);B$D17580D K9 7,2; (6,8); X$:17690D17290D K5 17700DK617780DK717780DK817780#DK9178503EK10179209EJE50::25000U$EI15u)E30I,30I,133I,37:7,7:{.EBEI114GE0,4;(25I,36);"["LEVE0,4;(11,30);"[[[[[[["[E0,4;(12,33);"pr"`E0,4;(13,34);"pr" eE0,4;(14,35);"p"tEMM1=yEM124M,30M,113M,123M:7,4:G~E10,4`E(23M,143M);"ab"yE(24M,143M);"cd"E13,4E(25M,143M);"ef"E(26M,143M);"gh"E(27M,143M);"gi"E1,4E(28M,143M);"[j" E(29M,143M);"[k" E18800, E18,24,29,30:7,4:6 E10,4I E(18,31);"lm"\ E(19,31);"no"f E13,4{ E(20,30);"s[[r" E(21,30);"t[[u" E(22,30);"t":(22,33);"u" E1,4 E(22,31);"[[" E(23,31);"tu" E(24,30);"vtuk" E18800!F216,0,27,1,31,8!F20!F216,0,27,1,31,87!F4L!F216,0,27,1,31,8b! F192,0,24,1,31,16x! F162,0,20,1,31,16!F128,0,16,1,31,24!F128,0,16,1,31,24!F4!F216,0,27,1,31,8!F2!F216,0,27,1,31,8!F4!F216,0,27,1,31,8"F192,0,24,1,31,16$" F162,0,20,1,31,16:""F144,0,18,1,31,24A"$F4V"&F216,0,27,1,31,8]"(F2r"*F216,0,27,1,31,8y",F4".F216,0,27,1,31,8"4F192,0,24,1,31,16"6F162,0,20,1,31,16"8F144,0,18,1,31,24":F144,0,18,1,31,24"F144,0,18,1,31,8 #@F2#BF144,0,18,1,31,8%#DF4:#FF144,0,18,1,31,8P#HF162,0,20,1,31,16f#JF192,0,24,1,31,16|#LF162,0,20,1,31,24#PF18,24,30,33:7,4:#UF6,4;(12,31);"u":6,4;(13,31);"u"#ZF10,4#_F(14,31);"lm":(15,31);"no"#dF13,4$iF(16,30);"s[[r":(17,30);"t[[u":$nF(18,30);"t":(18,33);"u"C$sF1,4e$xF(18,31);"[[":(19,31);"tu"z$}F(20,30);"vtuk"$FI120$F153I,1,232I,1,31,4$F$F2,4$F(14,31);"lm":(15,31);"no"$F30,1,60,1,31,30:10%F25,29,29,34:7,0:%F12,13,31,31:7,4:4%F14,20,30,33:7,4:>%F10,4`%F(21,31);"lm":(22,31);"no"j%F13,4%F(23,30);"s[[r":(24,30);"t[[u"%F13,0%F(25,30);"t":(25,33);"u"%F1,0%F(25,31);"[[":(26,31);"tu"%F(27,30);"vtuk"&F2&F21,24,30,33:7,4:1&F25,27,30,33:7,0:;&F10,0]&F(27,31);"lm":(28,31);"no"x&F13,0;(29,30);"s[[r"&F2&G27,29,30,33:7,0:&G25,29,29,34:7,7:& G17560&DHVORSTELLUNG STAEDTE&NH6,24,3,36:7,7:&XH"&bH"'lH" ccc HAUPSTAEDTE-RATEN ccc"$'vH"+'H"P'H" DER COMPUTER DENKT SICH EINE"y'H" HAUPTSTADT AUS UND MALT FUER JE-"'H" DEN BUCHSTABEN EIN KARO. DURCH"'H" EINGABE VON BUCHSTABEN (EINZELN)"'H" IST DIE JEWEILIGE STADT ZU ERRA-"(H" TEN. FUER JEDEN FALSCHEN BUCH-"?(H" STABEN MUSS TOM EINEN SCHRITT"O(H" HOEHER!"V(H"](H"~(H" aAUF LOS GEHTS LOS!b"(H"(H" (";(141);")";(IB(509):B1318700:Ԉ18690( I:0,31,0,39:7,1:(II120) II2,0,I2,0,31,2)*I")4II120>)>I50I2,0,50I2,0,31,2D)HIJ)RI_)pI216,0,27,1,31,8f)uI2{)zI216,0,27,1,31,8)I4)I216,0,27,1,31,8)I192,0,24,1,31,16)I162,0,20,1,31,16)I128,0,16,1,31,24)I128,0,16,1,31,24)I17290*8JI12*:J27,1,21,1,31,20/*J18,1,216,0,31,20[*@J162,0,20,1,31,20a*BJg*DJq* NMENUw**N*4N14249,188:862,25*>N0,31,0,39:7,4:*HN7,4;(2,11);"cccaBOE-GAMESbccc"*RN7,4;(30,1);"db86"*\N5,7,3,36:7,7:+fN23,25,3,36:7,7:%+pN9,17,3,36:7,7:P+zN(12,6);"HAUPTSTAEDTE RATEN NR: 1"{+N(14,6);"SCHIFFE VERSENKEN NR: 2"+N0,7;(24,6);"BITTE WAEHLEN SIE! NR:"+N18,4;(24,32);"["+N7,2;(6,12);"INTELLIGENZTEST"+NI17+NJ17&,NI,7;(6,3J);"a":I,7;(6,36J);"b"1,N20200:,NJ,IE,N20160b,NA$:A$""7,2: 20210,NA$"1":(24,32);A$:21000,NA$"2":(24,32);A$:22000,O,RI110,R15I,16I,3,36:7,0:,R14I,15I,3,36:7,0:,R-&RI130-0RA(19(1))6&-:RB(32(1))48-?RC(7(1))1N-DRC,0;(A,B);"[["f-NRC,0;(A1,B);"[["|-XRB5,0,B5,1,31,1-bR-gR10:0,0:406-lR17000-U-U9,21,3,36:0,0:-UI120-VA1(224(1))48-VB1(56(1))104.VC1(7(1))1.VJ15"."VA1,B1,J,C14.,VA11,B1,J,C1=.6VJ,IE.@V10T.JV0,0:406_.TV15000h.aZG+v.a:862,25.a0,31,0,39:7,1:.a2.a7,2.aPOKEN.a26000.aI132.bXZ. b15623I,XZ.b. b20000 /e192,224,240,248,248,240,224,192,3,7,15,31,31,15,7,3Y/e0,0,0,255,255,0,0,0,240,149,181,224,183,149,149,247/e0,1,7,31,63,126,247,239,0,224,240,248,140,124,204,252/e239,243,127,127,63,31,15,7,255,255,254,252,132,60,124,2480e7,15,31,59,119,247,239,239,128,128,192,224,224,240,240,248X0e238,238,238,238,238,238,238,238,248,252,252,254,255,255,255,2550e254,254,252,248,240,240,224,192,192,192,128,128,0,0,0,00e0,0,0,0,128,224,252,252,0,3,15,31,63,63,241,2551e0,192,240,248,252,252,199,255,255,255,55,51,24,15,15,3A1e255,255,252,204,24,240,240,192,255,127,63,31,15,7,3,11e255,254,252,248,240,224,192,128,128,192,224,240,248,252,254,2551e1,3,7,15,31,63,127,255,252,252,252,252,252,252,252,2521f63,63,63,63,63,63,63,63,0,0,0,0,1,7,63,63'2f60,126,126,60,28,24,16,0,0,0,255,255,255,255,0,0`2f192,224,240,248,248,240,224,192,3,7,15,31,31,15,7,32&f0,0,0,24,60,126,255,255,24,24,24,24,24,24,24,2420f0,0,0,255,255,0,0,0,192,224,240,248,248,240,224,1922:f3,7,15,31,31,15,7,3,0,0,56,127,199,129,0,0/3Df0,3,15,60,240,192,0,0,0,128,224,62,15,1,0,0j3Nf255,255,255,195,195,255,255,255,0,7,31,63,63,63,27,243Xf255,127,63,31,7,1,0,0,1,3,7,15,31,57,0,03bf255,255,255,255,199,129,0,0,1,3,7,15,31,63,127,2554lf124,124,126,255,219,126,124,56,0,0,0,0,7,12,56,240A4vf224,112,60,31,7,3,0,0,56,94,218,219,231,247,255,126|4f0,0,0,0,255,255,255,255,240,240,0,240,240,240,240,2404f240,240,0,240,255,255,255,2554f48,112,120,56,12,6,3,1,112,99,231,196,206,76,88,2485f128,192,224,240,248,156,0,0,28,62,127,237,61,57,15,30/5f0,0,0,24,28,52,102,102`5f24,24,24,24,24,24,24,24,0,0,0,255,255,0,0,05f24,24,24,255,255,24,24,24,0,126,126,126,126,126,126,05 5 Bearbeitet von . 6 Matthias Lichtenberger Irkutsker Str.2226( 9044 Karl-Marx-StadtT6***STRATEGIESPIEL OTHELLO***|6(aus HEBLIK;WISSENSSPEICHER BASIC)60,7::1,30,2,386A(10,10),I4(8),J4(8),C$(8),D$(3)6"OTHELLO wird auf einem 8 X 8"6"Spielfeld gespielt, dessen"#7"Zeilen von 1 bis 8 und dessen"G7"Spalten von A bis H bezeich-"i7"net sind. Ausgangsstellung"7"ist: alle Felder leer, ausser"7"den mittleren 4 Feldern, welche"7"die Form"7" O +"7" + O"8"bilden. Versuche Deine Steine so">8"zu plazieren, dass sie meine ein-"`8""schliessen, indem sie eine"8,"horizontale, vertikale oder dia-"86"gonale Linie bilden. Dann werden"8@"meine Steine in Deine umgewandelt."9J"Beachte: Du musst mindestens einen"*9T" von meien Steinen schlagen,"P9^" wann immer es moeglich ist."v9h" Wenn es nicht moeglich ist,"9r" dann gib 0,0 fuer Deinen"9|" Zug ein."9"weiter ---->";WE$9 WE$"" 1709*INITIALISIERUNG*:"Soll ich warten, bevor ich"8:"meinen Zug ausfuehre (J oder N)";A:F20J: X$]: X$"N" 520p:X$"J" 450y:F21::"Wenn Du 'ENTER' drueckst, mache":"ich weiter."::"Soll ich meine beste Strate-";"gie spielen (J oder N)"; ;&S20;0 X$&;: X$"N" 600:;D X$"J" 560C;NS22L;XB1T;bW1d;lD$(B2)"+"t;vD$(02)"\";D$(W2)"O"; K1 8; I4(K); K; 0,-1,-1,-1,0,1,1,1; K1 8; J4(K); K; 1,1,0,-1,-1,-1,0,1< K1 8< C$(K)< KB< "A","B","C","D","E","F","G","H"V<*neues Spiel *e<  I1 10t< J1 10< A(I,J)0<* J<4 I<>A(5,5)W= X$R= X$"+" 1010f= X$"O" 960n=CBv=HW|=="Willst Du anfangen (J oder N) ";= X$= X$"N" 1120= X$"J" 1030=$*Ausgangsstellung anzeigen*>. 3280 >81830>B*Computerzug*0>L F20 11209>V X$C>`B11L>jI30U>tJ30^>~T1Cg>T2Hm>>*freies Feld suchen*> I2 9> J2 9> A(I,J)0 1520>*freies Feld gefunden*>*gegnerischer Nachbar ?*> 2850? F10 15205?*gegnerischer Nachbar gefunden*_?*Wieviele Steine werden 'geflippt'?*?*Zug noch nicht ausfuehren*? U1? 2980?*Extrapunkt fuer Kantenposition*?( S10 1520?2 (I2)(I9)0 1350?<S1S1S2@F (J2)(J9)0 1380@PS1S1S2A@Z*besser als der Vorhergehende?T@d S1B1 1520g@n S1B1 1480@x*gleich, Zufallsentscheidung**@*Die zwei naechsten ausfuehrbaren*@*ANWEISUNGEN KOENNEN GELOESCHT*@*werden, bei BASIC-Versionen**A*ohne Zufallszahlen* A*JA**AB1S13AI3I"Achtung !!! Du bist nicht in"`EH"der Naehe meiner Steine. "vER"Neuer Versuch."E\ 1860Ef*Test auf richtigen Zug*EpU1Ez2980E S10 2240E"Achtung !!! Das bildet keine"F"Reihe. Neuer Versuch."F 1860%F*alles richtig*CF*Bedienerzug ausfuehren*KFZ0`F"Du bekommst ";iFS1;F"von meinen Steinen."FU1F2980FH1H1S11F C1C1S1F N1N11F ***Spielfeldausgabe***F$ 3280G. ***Test auf Spielende***G8 C10 2400'GB N164 24002GL 1100MGV ***Ende des Spiels***SG` cGj "Du hast";mGt H1;G~ "und ich habe ";G C1;G "Steine."G H1C1 2500G H1C1 2520G "Ich habe gewonnen."G 2530G "Unentschieden."H 2530!H "Du hast gewonnen.".H C1C1H1@H C10 2560KH C1C1]H C1(64C1)N1rH "Das war ein ";H C111 2700H C125 2680H( C139 2660H2 C153 2640H< "perfektes Spiel."HF 2710HP "ueberlegener Sieg."IZ 2710Id "Kampf."In 27104Ix "heisses Spiel."?I 2710QI "Mistspiel."WI I "Willst Du ein anderes Spiel (J oder N)";I X$I X$"J" 780I X$"N" 2730I "Vielen Dank fuer das Spiel !"I I I J *******************************9J *UP: Test auf richtigen Nachbarn*JJ *enthaelt:*dJ * I,J freier Platz*J ********************************J" F10J, I11 1J6 J11 1J@ A(II1,JJ1)T2 F11JJ *wenn F1=1 dann Erfolg*JT J1J^ I1Kh *wenn F1=0 dann falsch*"Kr (K| OK *********************************tK *UP: Rechnen und Aktualisieren*{K *K S10K K1 8K I5I4(K)K J5J4(K)K I6II5K J6JJ5K S30K A(I6,J6)T2 3230L *Schleife durch den Zug*L S3S31L I6I6I5+L J6J6J5DL A(I6,J6)T1 3130\L& A(I6,J6)0 3230gL0 3070tL: S1S1S3LD U1 3230LN *Aktualisierung Brett*LX I6ILb J6JLl K10 S3Lv A(I6,J6)T1L I6I6I5L J6J6J5L K1L KM M 0M *******************************HM *UP: Brettausgabe*NM iM " A B C D E F G H"wM I2 9M I1;M J2 9M 5; " ";M 5; D$(A(I,J)2);M JM M* IM4 M> MH *MR *physisches EnI14I1